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Preface 


This redbook is the third in a series of three redbooks that provides practical 
guidance to AS/400 application developers to enable their applications for the 
approach of the next century. Through the use of tutorials and a step-by-step 
hands-on approach, you are guided through the features and capabilities of IBM 
tools and products, such as BYPASS2000 V3R1M2, for a rapid increase in user 
knowledge and awareness. 


The book begins by using basic tools, looking at simple problems, such as "Does 
my source code match my compiled code?". Then, it explores sophisticated 
products that automate much of the Year 2000 application enabling process. 
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Chapter 1. Introduction 


This chapter gives an overview of the Year 2000 challenge for the AS/400 system 
and provides details about the tools available from IBM to help with the issues 
that can arise from a legacy of two-digit dates. 


1.1 The Challenge 


The Year 2000 is fast approaching. There has been a lot of speculation about 
what may happen, such as elevators will stop working, planes will not fly, and 
pacemakers will cease to tick. Whether this is correct, the challenge is real and 
serious. All businesses (large and small) need to consider the impact. 


The "Year 2000 Challenge" is not one challenge, but several. There is the 
consideration of computer hardware and internal clocks, but the most important 
consideration is that of applications that have traditionally used only two digits to 
represent a year (for example, 10/08/97 in DDMMYY format represents August 
10, 1997). 


1.1.1 Hardware 


Most computer hardware contains a system clock. Personal Computers (PCs) 
contain a Basic Input-Output System (BIOS) that uses the stored date and time. 
The hardware timer is the key component in determining the date and time for an 
operating system or application. 


The timer is initialized with a value based on a time and date and in increments at 
a sub-second factor. This value is then converted to a date and time, and 
returned back to the operating system or application. Depending on the size of 
the timer and the conversion method used, errors may result once the year is 
2000 or beyond. The date and time are accessible by the operating system and 
applications. However, when the date changes from December 31, 1999 to 
January 1, 2000, different results can be obtained. All models of the AS/400 
system contain a hardware timer that maintains the correct date and time, 
including the switch between centuries. However, this is only true if the operating 
system installed on the AS/400 system is Year 2000 ready (OS/400 Version 3 
Release 2 Modification 0, Version 3 Release 7 Modification 0, and later). This 
change will also occur correctly only if the system is either powered off or on at 
the time the year changes (that is, not in the process of being powered up, 
referred to as an IPL). 


1.1.2 AS/400 Applications 


For the AS/400 system, the main issue arises from the fact that many 
applications use two-digit dates. There is ambiguity when the system year passes 
1999 because the computer does not know what this represents (for example, 
does 98 mean 1898, 1998, or even 2098). This is a real issue that cannot wait 
until the year 2000. In fact, it has occurred in many situations already, such as a 
computer mistakes a person over the age of 99 to be a baby. 


The second part of this challenge is the incorrect sequencing of dates. This 
occurs in situations where purchase orders are sequenced by date (the orders to 
process that day are at the top of the list). 
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The other part of the challenge is the addition and subtraction of dates. For 
example, a simple stock check program may do a calculation by subtracting the 
current date from the expiration date to ensure it is valid. In a real case, the 
expiration date may be August 10, 2000 (some tinned products can quite easily 
be set several years in advance). If the current date is October 6, 1997, the 
calculation results in 001008 minus 971006, which is a negative number. To pass 
the product as still current, the result of this calculation must be positive. 
Therefore, this product is marked as expired. 


1.1.2.1 Leap Years 
The following diagram shows the correct sequence for a leap year calculation. 
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Figure 1. Leap Year Calculation 
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Typically, AS/400 applications test for a leap year by dividing a two-digit year by 
four and examining the remainder (a remainder of zero indicates it is a leap year). 
By following the flow chart, you can see that a year of 00 is flagged as a leap 
year. This is correct for the year 2000 but not for 2100. Therefore, leap year 
calculations should not pose a problem for the year 2000. However, it is worth 
checking the validity of your calculations to ensure all the checks are performed 
because some logic tests omit the first and second stage (multiples of 400 and 
100). 


1.1.2.2 Hidden Dates 

Hidden dates are dates that are embedded in other fields. For example, invoice 
numbers sometimes use the last (or first) two digits of the date as the first two 
digits of the number. This poses a challenge if these orders are sorted into 
descending order as 2000 appears after 1997. 


1.1.2.3 Invalid and Special Date Values 

Many applications use certain values for an invalid date entry. This may be all 
zeros for an invalid year entry. Therefore, to view all orders due for delivery in the 
year 2000 with only a two-digit field entry, a value of 00 may flag as an invalid 
entry unless the logic is changed. A date entry of 99 can also have another 
meaning (for example, any orders with a due date of 99 are out of stock). 


1.2 What Needs to Be Done 


For the AS/400 system, there are two issues. The first is the operating system, 
OS/400 and Licensed Program Products (LPPs) and the second is the 
applications. OS/400 V3R2M0 (for 48-bit CISC (Complex Instruction Set 
Computer) AS/400 systems) and OS/400 V3R7M0 (for 64-bit RISC (Reduced 
Instruction Set Computer) AS/400 systems) and subsequent releases are Year 
2000 ready. The details as to which versions of OS/400 and associated LPPs you 
must have to be Year 2000 ready can be found in Make Your AS/400 System 
Year 2000 Ready, SG24-5401, available only online at: 
http://www.redbooks.ibm.com/ 


In the Redbooks Home page, click Redbooks Online! On the page that appears, 
enter SG24-5401 for the search string and then click Submit Search. 
A Year 2000 ready OS/400 release, ensures that: 


¢ The command-to-command processing program (CPP) interface is 
CYYMMDD. 


¢ Output files are date qualified with CYY or YYYY. 
¢ Application Programming Interfaces (APIs) are date qualified with CYY or 
YYYY. 


Note: The "C" denotes the century digit to indicate if the year is the 20th or 21st 
century. 


IBM no longer provides support for Version 2 of OS/400. Therefore, we are 
unable to guarantee the results of any systems that are using Version 2 (or prior 
releases) when run in the Year 2000. 


Introduction 3 


1.2.1 Resource 


The majority of OS/400 licensed programs on systems at V3R2M0 or V3R7MO 
and later are Year 2000 ready. A complete list of these can be found in the IBM 
Year 2000 Product Readiness Database found at: 

http://wwwyr2k. raleigh.iobm.com/ 


The following flow chart shows the stages required to address this challenge. 


The Year 2000 Challenge 
What needs to be done ? 


Stage 1 - Inventory Analysis 


Hardware Inventory 
Software Inventory 
Project Management 
Resource / Cost 


Stage 2 - Impact Analysis 


Search for Impacted Dates 
Leap Years 

Hidden Dates 
Invalid/Special Date Values 


Stage 3 - Conversion 


Choose Conversion Method: 
- Windowing Technique 
- Unconventional Method 
- Remove Ambiguity 
Convert each application 


Stage 4 - Testing 


Test at each stage 

Check the implications of 
changing the system date 
Use a test system if possible 


Figure 2. Stages When Addressing the Year 2000 Challenge 


Each organization needs to develop a formal plan to resolve the year 2000 
challenge. First, all resource must be allocated in terms of a project team 
consisting of not only the IT staff (as this affects the entire organization), but also 
management and staff from other departments. 
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1.2.2 Software Inventory 


Having an idea of the scope of the project is the first stage. The Application 
Inventory Tool (available at no extra charge (free) through PTFs (see Chapter 2, 
“AS/400 Analyze User Objects Inventory Tool” on page 7) can help evaluate the 
software you have on your system. 


After you have investigated the software on your system that may have potential 
date impact problems, you can then decide whether to use one of the following 
methods: 

¢ Upgrade 


If the software has been written by another company, try to obtain a Year 2000 
ready version. 


Replace 


Where an upgrade is not possible (for older applications), a replacement may 
be necessary. 


Convert 


Conversion is only an option if the source code is available and you have the 
authority to modify it. Owning the source code for an application does not 
necessarily mean that you have the authority to change it. Program objects 
without source code can be identified from the application inventory tool 
described in Chapter 2, “AS/400 Analyze User Objects Inventory Tool” on 
page 7. 


1.2.3 Impact Analysis 


1.2.4 Conversion 


The purpose of the impact analysis stage is to search the applications for all the 
affected date fields. Some tools do this by finding date-type data in the database 
and others look for field names that are dates. Regardless of the method, the 
result is a file containing all of the date fields from the application that are fed into 
a conversion tool to expand them to remove any ambiguity. 


Consider the following ways to make an application Year 2000 ready. The method 
you choose depends on the needs and resources of your organization: 


¢ Unconventional methods 


There has been a case where a company has overcome the Year 2000 issue 
for one application by subtracting 28 years from all dates and using logic to 
bridge what is interpreted in the application to what the user displays and 
inputs. This is a temporary solution and should only be used in the case where 
an application may be replaced in the near future. 


Windowing technique 


This method uses a window of a fixed number of years to interpret which 
century the year is. For example, for a window of 100 years, this typically 
means that the century is the 20th if the two-digit year value is greater than 40. 
For a year value less than or equal to 40, the century is the 21st. This method 
does not change the database but changes the programs that access the 
dates from the database. 
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¢ Removing ambiguity 


By far the most popular and permanent solution is to remove all ambiguity 
from date fields. That is, ensure it is clear throughout the application which 
century the year refers to. Ambiguity can be removed in the following ways: 


— Converting a two-digit year to a four-digit year format 
— One-digit century code 

— Standard date representation 

— Windowing techniques (discussed previously) 


Regardless of the method you choose, be aware that all date logic throughout the 
application must be modified to ensure there is no confusion when you move to 
the next century. 


Note: For a detailed description of some of these techniques, along with their 
advantages and disadvantages, refer to The Year 2000 and 2-Digit Dates: A 
Guide for Planning and Implementation, GC28-1251. 


1.3 Tools 


There are many different tools offered to aid Year 2000 conversions. IBM offers 
the following tools: 


¢ Application Inventory Tool 


Available through PTFs, the ANZUSROBJ command allows you to collect an 
inventory listing of the software on your system with potential Year 2000 
issues. 


Impact Analysis 


There are many impact analysis tools available. Please refer to the IBM 
AS/400 Partners in Development Year 2000 home page for the latest 
information on these tools, including those tools that interface with 
BYPASS2000 at: http://www.as400.ibm.com/developer/ 


Code Conversion 


BYPASS2000 converts programs from two-digit to four-digit years leaving 
display (MAP) and printer (PRT) files the same but bridging with extra logic. 


,-—— Disclaimer - Important Please Read 


Notice that it is the customer's responsibility to ensure that all applications on 
the AS/400 system are ready for the change in the century. All AS/400 
hardware models are ready if they are running a Year 2000 certified version of 
the operating system (V3R2M0, V3R7M0, or later). If applications are modified, 
they should be rigorously tested by the customer to validate that they are 
operating correctly. Refer to Make Your AS/400 System Year 2000 Ready, 
$G24-5401, available only online at: http://www.redbooks.ibm.com/ 


In the Redbooks Home page, click Redbooks Online! On the page that 
appears, enter SG24-5401 for the search string and then click Submit Search. 
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Chapter 2. AS/400 Analyze User Objects Inventory Tool 


This chapter provides an overview of the IBM AS/400 Analyze User Objects 
Inventory Tool for OS/400 and the importance it has in planning for the Year 2000. 
It also describes the Analyze User Objects Inventory Tool options and how to use 
these options along with additional hints and tips. 


2.1 Overview of Analyze User Objects Inventory Tool 


The Analyze User Objects Inventory Tool is available as an OS/400 Program 
Temporary Fix (PTF) through normal PTF distribution channels. The tool 
searches all user AS/400 libraries for objects and verifies that the source code 
exists for each object (assuming that both object and source exist on the same 
system). 


The Analyze User Objects Inventory Tool is an initial step at determining a high 
level awareness of which applications are without source code and which 
applications are out-of-sync with their source code (that is, objects with source 
that have a different date and time). 


Both a system summary report and a library summary report are provided with 
information in the following categories: 


Program type: 


— OPM RPG 

- ILE RPG 

—- OPM COBOL 
-— ILE COBOL 
— OPM CLP 

— ILE CLP 

- C 

— DFU 

— Other 


File type: 


— Physical 
— Logical 
— Display 
— Printer 
— Other 


Other source-based objects: 


— Commands 

— Service programs 
— Modules 

— Panel groups 


Data holding objects: 


— User spaces 
— Data areas 
User indexes 
Other objects 
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A detailed exception report by library also provides the following information: 
¢ Objects with different source date and time 
¢ Objects without source available on the system 
¢ Objects that often contain user data which are not created from source 


¢ Source files that contain source members that are part of an application which 
are not compiled into objects (for example, REXX and FMTDTA source 
members). 


It identifies the total number of lines of code known for those exceptions and if the 
object has been used in the last 13 months. A summary or detailed output file is 
provided for additional query reports. 


The Analyze User Objects Inventory Tool does not provide a list of source files for 
which no object exists. Two sample Query/400 definitions are provided at the end 
of this chapter to meet this requirement. 


The Analyze User Objects Inventory Tool does not provide a date impact 
analysis. Many impact analysis tools are available; some are even free. 


Be sure to visit the IBM AS/400 Partners In Development Year 2000 home page 
for the latest information on impact analysis tools at: 
http://www.as400.ibm.com/developer/ 


An IBM tool to provide impact analysis is SEARCH2000 (see Chapter 3, 
“SEARCH2000 Impact Analysis Tool’ on page 29). 


Source conversion can be done using AS/400 BYPASS2000 (see Chapter 4, 
“BYPASS2000 Product Overview” on page 47). 


The Analyze User Object (ANZUSROBJ) function is distributed through a PTF 
(Program Temporary Fix) for the following OS/400 releases: 


Version 2 Release 3 Modification 0 (V2R3M0 SF41293 
Version 3 Release 0 Modification 5 (V3ROM5 SF41405 
Version 3 Release 1 Modification 0 (V3R1M0 SF41382 
Version 3 Release 2 Modification 0 (V3R2M0 SF41383 
Version 3 Release 6 Modification 0 (V3R6M0 SF41385 
Version 3 Release 7 Modification 0 (V3R7M0 SF41384 
Version 4 Release 1 Modification 0 (V4R1M0 SF42427 


The Inventory Tool is not available for OS/400 releases prior to V2R3M0. 
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Alternative Tool 


The SSILIB (System Summary Information Library) tool was written by Ed van 
Weeren from IBM Netherlands and is available at no extra charge (free). It is 
offered as an unsupported application. The tool runs on an AS/400 system to 
provide you with a quick overview (inventory) of all objects to be examined for 
the Year 2000 exercise. The following main functions are provided by the 
application: 


¢ List object types for each library and the source relationship 

¢ List the number of source lines 

¢ List the potential fields which could contain a date (the selection criteria can 
be modified by using the Query product) 


The purpose of this application is similar to the Analyze User Objects Inventory 
Tool. It provides information about objects and their relationship to sources 
from which they are built. It provides reports for both objects with or without 
source and source with or without objects. It also gives an indication of fields 
that may be date related. 


You must download this tool from the ITSO Web page at: 
http://www.redbooks.ibm.com/ 


From the navigation bar on the left, select Additional Materials. Then, in the 
list of folders on the right, find SG242156. Follow that link. Download the 
ssilbzip.exe file to your PC. The self-extracting file contains a README file 
with all further instructions in English. 


2.2 Installing the Analyze User Objects Inventory Tool 


The Analyze User Objects Inventory Tool can be installed by applying the 
appropriate OS/400 PTF. Use the PTF cover letter instructions to correctly install 
the tool. 


You can access the Analyze User Objects Inventory Tool functions through the 
use of the Analyze User Objects (ANZUSROBJ) command. 


2.3 Analyze User Objects Inventory Tool Command 


When you install the inventory tool, the Analyze User Object (ANZUSROBUJ) 
command has its public authority set to “EXCLUDE. You must have *ALLOBJ 
special authority of to run the ANZUSROBJ command. 
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ANALYZE USER OBJECTS (ANZUSROBJ) 


Type choices, press Enter. 


ANALYSIS OPTION xCOLLECT, *REPORT 


Bottom 
F3=Exit F4=Prompt F5=Refresh Fi2=Cancel F13=How to use this display 
F24=More keys 


Figure 3. Command Statement for Analyze User Object (ANZUSROBJ) Command 


The following parameters and their options can be used with the ANZUSROBJ 
command: 
OPTION 
Specifies whether data collection, data reporting, or both should be done. The 
possible values are: 
*COLLECT 
User object data in all user libraries is searched and collected for later 
analysis. 
*REPORT 
User object data is analyzed and reported for the libraries specified 
(LIB parameter). 
When you specify the REPORT option, you are prompted for the 
following parameters (see Figure 4 on page 11). 
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ANALYZE USER OBJECTS (ANZUSROBI) 


Type choices, press Enter. 


ANALYSIS OPTION ...... . . > XREPORT *COLLECT, *REPORT 

REPORT TYPE ioe) BR ce *ALL *ALL, *SYSSUM, *LIBSUM.. 
+ for more values 

LIBRARIES TO ANALYZE ...... *ALLUSR Name, genericx, *ALLUSR 


Bottom 
F3=Exit F4=Prompt F5=Refresh Fi2=Cancel Fi3=How to use this display 
F24=More keys 
MA b 67/037 


Figure 4. Command Language for Analyze User Object (ANZUSROBJ) Command 


RPTTYPE 
Specifies the types of user object information that are to be created. The 
possible values are: 


*ALL The system summary, library summary, and library detail user 
object analysis reports are created. 


*SYSSUM The system summary report is created. 
*“LIBSUM The library summary report is created. 
*LIBDTL _ The library detail report is created. 


LIB 
Specifies the libraries to be analyzed when creating reports. The possible 
values are: 


*ALLUSR All user libraries are analyzed. 


*generic-library-name 
Specify the generic name of the library or group of libraries to be 


analyzed. To specify a generic library name, add an asterisk (*) at 


the end of the character string that is common to the names of all 
libraries to analyze. 


library-name 
Specify the full name of the library to analyze. 
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2.4 Collecting Year 2000 Inventory Information 


The Analyze User Object (ANZUSROBJ) command may take some time to 
complete, depending on your system configuration. We suggest that you run this 
command in batch. Testing was performed at the IBM Rochester facility using the 
following AS/400 systems: 


AS/400 Model D60: 


— OS/400 V3R1MO 

— 21GB of disk storage at 46% used 
— Approximately 28 libraries 

— Over 479 source members 

— 41,000 lines of source code 


AS/400 Model 510: 


— OS/400 V3R7M0O 

— 45GB of disk storage at 82% used 
— Approximately 200 libraries 

— Over 2400 source members 

— 240,000 lines of source code 


The ANZUSROBJ command took around five minutes to complete on these 
systems and used approximately 5% CPU. 


The command searches all user libraries for objects created on the AS/400 
system and writes the output to the QAUS2DET database file in library 
QUSRSYS. See Section 2.6, “Record Layout for QAUS2DET” on page 20, for 
additional information if you want to write your own query programs. 


2.5 Reports 


The three reports the ANZUSROBJ command can produce for you are object 
inventory exception reports. These reports warn you of possible problems with 
your application components. 

The possible problems that are signaled are: 


¢ Objects that appear to be created from source, which is not available on the 
system or has a last change date and time mismatch. 


¢ Objects that often contain user data which are not created from source. 


¢ Source files that contain members that are part of an application which are not 
compiled into objects (for example, REXX and FMTDTA source members). 
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The following tables provide information on the various object source types that 


can show up on the reports. 


Table 1. Program Object Extensions 


Program Object 
OPM RPG 

ILE RPG 

OPM COBOL 
ILE COBOL 
OPM CLP 

ILE CLP 


Table 2. File Object Extensions 


Extension (Source Type) 
RPG 

RPGLE 

CBL 

CBLLE 


DFU DFUEXEC 


CBL36 
CBL38 
CLP38 
RPG36 
RPG38 
PAS 

PLI 

PLI38 
QRYEXC 
And so on 


File Objects 
Physical Files 


Logical Files 


Display Files 
Printer Files 


Other 


Extension (Source Type) 


PF 
PHY 


LF 
LGL 


DSPF 
PRTF 


CMNF38 
DDMF 
DDMF38 
DSPF38 
ICFF 
SAVF 

And so on 
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Table 3. Other Source-Based Object Extensions (if any) 


Other Source-Based Objects Extension (Source Type) 
aaa AE A ie ae ee 
Commands 


Service Programs 


Modules CLE 


Panel Groups 


Table 4. Data Holding Objects and Their Object Types 


Data Holding Objects Object Type 


“USRSPC 


*“USRIDX 


Table 5. Other Object Extensions (if any) 


Other Objects Extension (Source Type) 
“MENU UIM 

*DTAQ 
*JOBD 
“JRN 
*JRNRCV 
*“OUTQ 
*QRYDFN 


And so on 


2.5.1 System Summary Report 
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The System Summary - Object Inventory Exception Report shows the count for 
each type of application component and the number that have problems. The only 
libraries considered are the ones that have possible problems. 


The report contains a summary of the system. The component and possible 
problem counts are grouped into programs, files, data holding objects, and other 
objects. See Figure 5 on page 15. 
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SYSTEM SUMMARY: 
DATE OF COLLECTION 
TIME OF COLLECTION 
INVENTORY FROM SYSTEM 
SYSTEM MODEL 


PROGRAMS : 


OPM RPG Aaa 
POSSIBLE OPM RPG 
SOURCE PROBLEMS 


TUB RPG si ue ae ae 
POSSIBLE ILE RPG 

SOURCE PROBLEMS 
OPM COBOL 


POSSIBLE OPM COBOL 
SOURCE PROBLEMS 


ILE COBOL Sr atitasg 1a 
POSSIBLE ILE COBOL 
SOURCE PROBLEMS 


POSSIBLE ILE CLP 

CS as ee he AS Se dae xe 

POSSIBLE C SOURCE 
PROBLEMS 

0D) LN Se ae ee a 

POSSIBLE DFU SOURCE 
PROBLEMS 

OTHER. 34 tse ay chy 8, ap Got 

POSSIBLE OTHER PROGRAM 
SOURCE PROBLEMS 


DATA HOLDING OBJECTS: 
USER SPACES 
DATA AREAS 
DATA QUEUES 
USER INDEXES 


OBJECT INVENTORY EXCEPTION REPORT 


05/28/97 

12:25:52 

SYSXXXXX 
E95 


587 


299 


2910 


2234 


179 


Figure 5. Sample System Summary Report 


2.5.2 Library Summary Report 


The Library Summary - Object Inventory Exception Report lists only those 
libraries that have possible problems. Libraries are listed in alphabetical order. A 
count of the different types of application components with possible problems is 


provided (see Figure 6 on page 16). 


VERSION/RELEASE/MOD . : V3R1M0 
AUXILIARY STORAGE . . : 20462 
SYSTEM ASP SIZE ...: 19048 
SYSTEM ASP PERCENT 
USED? ares oss Be os oer ese 8 70.7606 
FILES: 

PHYSICAL FILES ...=: 4174 
POSSIBLE PHYSICAL FILE 

PROBLEMS .....: 410 
LOGICAL FILES ....: 1171 
POSSIBLE LOGICAL FILE 

PROBLEMS .....: 182 
DISPLAY FILES ....: 2347 
POSSIBLE DISPLAY FILE 

PROBLEMS .....: 293 
PRINTER FILES . ...: 353 
POSSIBLE PRINTER FILE 

PROBLEMS .....: 118 
POSSIBLE COMMAND 

PROBLEMS .....: 531 
SERVICE PROGRAMS .. : 35 
POSSIBLE SERVICE 

PROGRAM PROBLEMS . : 27 
MODULES .......: 402 
POSSIBLE MODULE 

PROBLEMS .....: 92 
PANEL GROUPS ....: 237 

PROBLEMS .....: 382 
POSSIBLE PANEL GROUP 

PROBLEMS .....: 92 

OTHER OBJECTS: 

OUVHERS “2° a4 58 G-Star sy at 4806 
POSSIBLE OTHER SOURCE 

PROBLEMS .....: 382 
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OBJECT INVENTORY EXCEPTION REPORT Page 2 
SYSXXXXX 05/29/97 
09:47.37 
SUMMARY OF OBJECTS WITH POSSIBLE SOURCE PROBLEMS: 


OTHER DATA 
LIBRARY PROGRAMS FILES SOURCE OBJECTS OTHER 
SSTEST 0 1 0 
$SPAPI32 0 0 0 1 0 
$SPAPI33 0 0 0 1 0 
A 10 0 0 0 0 
ACCOLA 29 1 11 3 a 
AFPUTEST 0 4 0 0 0 
ANYIMG2I 0 1 0 0 
ATSADMIN 2 1 0 0 0 
Al 2 0 0 0 0 
BERESSI 0 0 0 0 a 
BILLRTEMP 1 0 0 0 0 
BN 0 1 0 0 0 
BRUCE 1 0 0 0 0 
BSCHLOSS 5 0 0 0 0 
QGPL 22 16 8 18 1 
QRCL 1 0 0 13 0 
QUSRSYS 3 15 2 145 1 
RADARS 0 2 2 0 
RAMARAO 15 0 9 1 0 
RAMOST 0 0 0 0 
RAPTOR2 3 0 4 0 0 
RAS 16 0 3 0 0 
RAVITEST 27 5 8 aR 1 
RED 2 0 0 0 0 
REXX 5 1 0 0 0 
RIO4 0 28 0 al 0 
RKFCLIB 0 2 0 0 
RODJ 20 0 4 2 0 
RODJFIX 0 0 0 0 


Figure 6. Sample Library Summary Report 


2.5.3 Library Detail Report 


The Library Detail - Object Inventory Exception Report lists detailed information 
for the libraries that have possible problems. The report shows (library-by-library 
in alphabetical order) the count of application components and possible errors for 
each of the components. The components are grouped into programs, files, data 
holding objects, and other objects (see Figure 7 on page 17 and Figure 8 on page 
19). 


16 AS/400 Applications: IBM Year 2000 Tools Tips and Techniques 


OBJECT INVENTORY EXCEPTION REPORT 


Page 275 


SYSXXXXX 05/29/97 09:47:37 
LIBRARY: QGPL 
PROGRAMS : FILES: 
OPM RPG ..... ae 1 PHYSICAL FILES ... : 268 
POSSIBLE OPM RPG POSSIBLE PHYSICAL FILE 
SOURCE PROBLEMS .. : 0) PROBLEMS .....: 10 
ELE, RPG: 2. ose + 3, Aa ete (0) LOGICAL FILES .... =: 15 
POSSIBLE ILE RPG POSSIBLE LOGICAL FILE 
SOURCE PROBLEMS .. : 0 PROBLEMS .....: 0) 
OPM, ‘COBOL. 6. 3g. cg ee wh 1 DISPLAY FILES .... =: 1 
POSSIBLE OPM COBOL POSSIBLE DISPLAY FILE 
SOURCE PROBLEMS .. : 0) PROBLEMS ae 
TLE; COBOT: +20 3. “ss ak Cet 0) PRINTER FILES . ...: 22 
POSSIBLE ILE COBOL POSSIBLE PRINTER FILE 
SOURCE PROBLEMS .. : 10) PROBLEMS .....: 3 
OPM “GLP p32. Yo. Sak oe 7. OTHER. 3s Go oe fe Sade es Gb 2 
POSSIBLE OPM CLP POSSIBLE OTHER FILE 
SOURCE PROBLEMS . . : 5 SOURCE PROBLEMS . . : 2 
TOE: <GUP cg. aera, eh S20 OTHER SOURCE BASED OBJECTS: 
POSSIBLE ILE CLP 
SOURCE PROBLEMS .. : 0) COMMANDS ......: 13 
POSSIBLE COMMAND 
Gre, 2 sche da Be heh) Ee 2 PROBLEMS .....: 6 
POSSIBLE C SOURCE 
PROBLEMS .....: 2 SERVICE PROGRAMS. . : 1 
POSSIBLE SERVICE 
DEW, Ate gee ote ee Oe. ge ia ee 0 PROGRAM PROBLEMS. : 1 
POSSIBLE DFU SOURCE 
PROBLEMS © +5. 39030 4) aac? 0) MODULES): 5. so a ES 3 
POSSIBLE MODULE 
OTHER: cn? foe Hap en GG a ee 220 PROBLEMS .....: 2 
POSSIBLE OTHER PROGRAM 
SOURCE PROBLEMS . .: 14 PANEL GROUPS .... =: 0) 
POSSIBLE PANEL GROUP 
DATA HOLDING OBJECTS: PROBLEMS .....: 0) 
USER SPACES .....: 4 
DATA AREAS .....: 11. OTHER OBJECTS: 
DATA QUEUES . . abe 
USER INDEXES ....: i OTHER: 35 6 40 al a 128 
POSSIBLE OTHER SOURCE 
PROBLEMS .....: 1 


Figure 7. Sample Library Detail Report (Part 1 of 3) 


Every object in each included library is listed with the following information (see 
Figure 8 on page 19): 
Object Name 

This is the name of the user object. For files containing source members, 


this is blank for the member entries. The members follow the file within the 
report. 


Object Type 
This is the type of the object. For files containing source members, this is the 
member extension for the member entries. 


Object Extension 
This is used for the source member name when listing REXX and FMTDTA 
members. 

Text 
This is a text description associated with the object or source member. 


Source Last Changed Date/Time 
This is the date/time of the last change found for the source. If blank, this 
indicates the source is not available on the system or the object is an ILE 
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program or service program that is created from modules and not source 
directly. 


Object Creation Source Date/Time 
This is the date of the last change for source used in the creation of the 
object. If blank, this indicates the object was not created from source or the 
object is an ILE program or service program that is created from modules 
and not source directly. 


Lines 
This is the number of lines of source code found. 


A "1" indicates that the object has not been used in the last 12 months. 
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LAST OBJECT 
OBJECT TYPE 
EDTVAR *CMD 
PUTSPLF *CMD 
RTVJOBD *CMD 
STRPRTINT *CMD 
TESTHPT *CMD 
TRCPSF *CMD 
CHINOOK *DTAARA 
FRISCO *DTAARA 
PJ *DTAARA 
PRTO2 *DTAARA 
PRT040205 *DTAARA 
PRTO50105 *DTAARA 
PSF3130 *DTAARA 
QFFMSTOPT1 *DTAARA 
QSS1MRI *DTAARA 
QTPST *DTAARA 
TCP3130 *DTAARA 
DSI00001Q *DTAQ 
DSI00002Q *DTAQ 
COMPILE *FILE 
KPS *FILE 
KPSNEW *FILE 
KPSOLD *FILE 
LQ4SAVE *FILE 
QAEZDI0001 *FILE 
QDGDCMDI * FILE 
TSLHWSC *FILE 
T8189DB *FILE 
T8189DSP *FILE 
T8189I1CF *FILE 
USERS *FILE 
WPAF198 *FILE 
WPAF199 *FILE 
WPAF200 *FILE 
SAMPLE *MODULE 
TESTHPTC *MODULE 
BOBFFACB6 *PGM 
QBNBLOAD *PGM 
QDCVRD *PGM 
QLPFRC1P *PGM 
QPDCFGPM *PGM 
QPDMSGCR *PGM 
QPZCPFI *PGM 
QQXCPI *PGM 
QOXFASTW *PGM 
QSPPUTF *PGM 
QTVENDLN *PGM 
QWPZATRN *PGM 
QYPISERV *PGM 
Q5ANXTTG *PGM 
SAPACK *PGM 
TAACLPCC *PGM 
TAACLPCC2 *PGM 
TAAJBDBC *PGM 
TESTHPTO *PGM 
T8189ICS *PGM 
T8189ICT *PGM 
boc *QRYDFN 
QC2ALLOC *SRVPGM 
QEZPWRCLN  *USRIDX 
COMM _AREA_ *USRSPC 
PJ *USRSPC 
TRANSSPACE *USRSPC 
TSTUS *USRSPC 
TESTHP4 *WSCST 


CREATION 
EXTENSION 


QRY 
CSYSD 


SPOOL_FILE 
QUSLOBJ 
SPOOL_FILE 
TEST 


SOURCE 


Figure 8. Sample Library Detail Report (Part 2 of 3) 


SOURCE LAST 
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TEXT CHANGED DATE/TIME SOURCE DATE/TIME 

Edit variable command - EDTVAR 5/25/94 17:45:19 (0) 
4/25/91 9:39:17 0 
Retrieve JOBD parms - RTVJOBD 5/25/94 17:45:44 0 
Command for Call PRTINT in Lib PIT 3/24/92 14:26:24 0 
Command for QwpzHostPrintTransform 12/08/94 10:33:51 0 
PSF Trace 3/11/94 16:51:11 a. 
0 
0 
R/DARS-400 User defaults data area (0) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
4/04/95 14:31:08 0 
6/28/96 12:05:24 0 
6/28/96 12:09:57 0 
6/28/96 12:16:41 0 
7/29/96 13:49:52 0 
Old name QAEZDISK in QGPL owned by XZS25 8/21/96 10:30:37 0 
7/17/96 18:12:13 0 
7/25/95 17:03:19 ) 

Database file for APPC examples 7/26/93 6:55:00 

Display file for APPC examples 7/26/93 6:55:02 
ICF file for APPC examples 7/26/93 6:55:01 (0) 
6/28/96 12:07 
6/16/93 7:17:07 0 
6/16/93 7:17:07 0 
6/16/93 7:17:07 0 
8/04/94 18:45:04 3/31/94 9:37:14 4 
4/11/95 7:50:10 0 
0 
10/18/96 11:49:35 160 1 
10/18/96 11:49:35 160 
10/18/96 11:49:35 160 
11/15/94 16:51:06 0 
9/21/94 22:40:04 108 
9/21/94 22:40:04 108 
9/21/94 22:40:04 108 
9/21/94 22:40:04 108 
9/21/94 22:40:04 108 
9/21/94 22:40:04 108 
0 
0 
0 
0 
Edit variable - CPP for EDTVAR 8/01/94 92253258) 0 
Edit variable -Simple front end that doe 8/01/94 9:33:51 (0) 
Retrieve JOBD parms - CPP for RTVJOBD 3/31/97 13:43:59 0 
0 
APPC C program example ICF - Source 7/30/93 17:05:05 0 
APPC C program example ICF - Target 7/30/93 17:05:07 0 
0 
0 
OA CLEANUP AND POWER SCHEDULE DATA 0 
Spool file transform space 0 
For QUSLOBJ API use 0 
Spool file transform space 0 
Event Adapter Buffe { 3 0) 

3/31/94 17:20:24 3/31/94 10:23:29 


OBJECT CREATION SOURCE 


LINES 


:16 


346 
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WPAF198 *FILE PRTF 


8/04/94 


10/18/96 
10/18/96 
10/18/96 


9/21/94 
9/21/94 
9/21/94 
9/21/94 
9/21/94 
9/21/94 


WPAF199 *FILE PRTF 

WPAF200 *FILE PRTF 

SAMPLE *MODULE CLE 

TESTHPTC *MODULE CLE 

BOBFFACB6 *PGM CLE 

QBNBLOAD *PGM BND 

QDCVRD *PGM 

QLPFRC1P *PGM 

QPDCFGPM *PGM CLP 

QPDMSGCR *PGM CLP 

QPZCPFI *PGM 

QQXCPI *PGM BND 

QOXFASTW *PGM BND 

QSPPUTF *PGM 

QTVENDLN *PGM 

QWPZATRN *PGM CLE 

QYPISERV *PGM 

Q5ANXTTG *PGM PAS 

SAPACK *PGM CLE 

TAACLPCC *PGM CLP Edit variable - CPP for EDTVAR 
TAACLPCC2 *PGM CLP Edit variable -Simple front end that doe 
TAAJBDBC *PGM CLP Retrieve JOBD parms - CPP for RTVJOBD 
TESTHPTO *PGM CLE 

T8189ICS *PGM Cc APPC C program example ICF - Source 
T8189ICT *PGM Cc APPC C program example ICF - Target 
DOC *QRYDFN QRY 

QC2ALLOC *SRVPGM CSYSD 


QEZPWRCLN *USRIDX 


PJ *USRSPC QUSLOBJ For QUSLOBJ API use 


TRANSSPACE *USRSPC SPOOL _ FILE Spool file transform space 


TSTUS *USRSPC TEST 
TESTHP4 *WSCST 


Event Adapter Buffe 


Figure 9. Sample Library Detail Report (Part 3 of 3) 


OA CLEANUP AND POWER SCHEDULE DATA 
COMM_AREFA_ *USRSPC SPOOL_FILE Spool file transform space 


{ 3 


3/31/94 


18:45:04 


17:20:24 


6/16/93 7:17 
6/16/93 7:17: 
6/16/93 7:17 
3/31/94 9:37 
4/11/95 7:50 


11/15/94 16:51: 


8/01/94 
8/01/94 
3/31/97 


7/30/93 
7/30/93 


06 


17: 
17: 


3/31/94 10:23:29 


(oo mo momo m=) 


NODDD0DCCO 


w 
w 


2.6 Record Layout for QAUS2DET 


The following information can be used to write your own query programs to 


produce reports using the information collected by the Inventory Tool in the 
QAUS2DET database file in library Y2RPTF. This file contains the results of 
running the *COLLECT option of the ANZUSROBJ command and is the basis for 


the Library Detail report. 
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R QUSDET 
OBJNAM 
OBJLIB 
OBJTYP 
INFSTS 
OBJEXT 
OBJTXT 
USRATR 
ASP 
OBJOWN 
OBJDMN 
TSCRT 
CRTYMD 
TSCHG 
CHGYMD 
OBJSTG 
CMPSTS 
ALWCHG 
CHGED 
OBJAUD 
SRCFIL 
SRCLIB 
SRCMBR 
SRCCHG 
SRCUPD 
SRCLIN 
CRTPRF 
CRTSYS 
SYSLVL 
CRTCMP 
OBJLVL 
USRCHG 
LICPGM 
PTF 
APAR 
PRMGRP 
TSOBUS 
DTOBUS 
TSOBUR 
DTOBUR 
SAVSIZ 
SAVMLT 
SAVSEQ 
SAVCMD 
SAVVOL 
SAVDEV 
SAVF 
SAVFL 
SAVLBL 
TSSAVA 
DTSAVA 
TSLSTU 
DTLSTU 
TSRST 
DTRST 
DAYUSD 
USGINF 
RPTTYP 

K RPTTYP 

K OBJLIB 

K OBUTYP 

K OBJNAM 


TEXT ('OBJECT NAME' ) 

TEXT ('OBJECT LIBRARY' ) 

TEXT ('OBJECT TYPE' ) 

TEXT ('INFO STATUS') 

TEXT ('EXTENDED ATTR') 

TEXT ('OBJECT TEXT' ) 

TEXT ('USER DEFINED ATTR') 
TEXT ('ASP') 

TEXT ('OBJECT OWNER' ) 

TEXT ('OBJECT DOMAIN') 

TEXT ('TIME STAMP - CREAT') 
TEXT ('CYMD - CREATION' ) 
TEXT ('TIME STAMP - CHANGE' ) 
TEXT ('CYMD - CHANGE') 

TEXT ('STORAGE' ) 

TEXT ('COMPRESSION STATUS') 
TEXT ('ALLOW CHANGE BY PGM') 
TEXT ('CHANGED BY PGM') 

TEXT ('OBJECT AUDIT VALUE' ) 
TEXT ('SOURCE FILE' ) 

TEXT ('SOURCE FILE LIBRARY' ) 
TEXT ('SOURCE FILE MEMBER' ) 
TEXT ('SRC MBR CHANGED ' ) 
TEXT ('SRC FILE UPDATED ON') 
TEXT ('SRC RECS IN MBR') 
TEXT ('CREATORS USRPRF' ) 
TEXT ('CREATED ON SYSTEM') 
TEXT ('SYSTEM LEVEL' ) 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
TEXT ('COMPILER' ) 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


TEXT ('OBJECT LEVEL' ) 

TEXT ('USER CHANGED ' ) 

TEXT ('LICENSED PROGRAM' ) 
TEXT ('PTF') 

TEXT ('APAR' ) 

TEXT ('PRIMARY GROUP ' ) 

TEXT ('TIME STAMP OF SAVE') 
TEXT ('CYMD - SAVE') 

TEXT ('TIME STAMP OF RST') 
TEXT ('CYMD - RST') 

TEXT ('SAVE SIZE') 

TEXT ('SAVE SIZE MULT') 
TEXT ('SAVE SEQUENCE NBR') 
TEXT ('SAVE COMMAND ' ) 

TEXT ('SAVE VOLUME' ) 

TEXT ('SAVE DEVICE' ) 

TEXT ('SAVE FILE') 

TEXT ('SAVE FILE LIBRARY') 
TEXT ('SAVE LABEL' ) 

TEXT ('TIME STAMP - SAVACT') 
TEXT ('CYMD - SAVACT') 

TEXT ('TIME STAMP LASTUSED' ) 
TEXT ('CYMD - LAST USED') 
TEXT ('TIME STAMP - RESET') 
TEXT ('CYMD - RESET') 

TEXT ('DAYS USED COUNT' ) 
TEXT ('USAGE INFO UPDATED' ) 
TEXT ('REPORT TYPE' ) 


Figure 10. Record Layout for QAUS2DET 
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2.7 Additional Query/400 Queries 


The following section shows additional and useful Query/400 queries developed 
by Jim Kaminski from IBM U.S. Included are Query/400 source listings that allow 
some quick analysis not covered by the ANZUSROBJ command. 


2.7.1 Total Source Code by Library 


This query provides a count of lines of source code in each library, a count of the 
number of source members, and a final count of all members and all lines of 
source code for all libraries. 


A file called DSPFDMBR was created from the following CL command: 


DSPFD FILE(*ALLUSR/*ALL) TYPE(*MBR) OUTPUT (*OUTFILE) 
FILEATR(*PF) OUTFILE (QGPL/DSPFDMBR) 


The DSPFDMBR file is used as input to the following query: 


QUeTY? —1-osPass at UE Ge. Be ly Gee eee ot. ISRCTOTIR 
Titbrary’ #4. 286 2 ® bod.) we 4g SR Se AOTOT230; 
Query text ots SS eh ee a eS 
QUST Ys (CCS TDI ens Gaps; tiem git ats fe: atte a" Mena, Grete lS 37 
Query language id. ........ . . ENU 
Query country :id! -2 4. Sw sh ee Sy SUS 
Collating sequence ....... .. . Hexadecimal 
Processing options 
Use rounding ........... . Yes (default) 
Ignore decimal data errors tvg ae «, -p INO (default) 
Ignore substitution warnings ... . Yes 
Use collating for all compares .. . Yes 
Selected files 
ID File Library Member Record Format 
TOL DSPFDMBR AI701230 DSPFDMBR QWHFDMBR 
Select record tests 
AND/OR Field Test Value (Field, Numbers, or 'Characters' 
MBDTAT EQ "Ss! 
Ordering of selected fields 
Field Sort Ascending/ Break Field 
Name Priority Descending Level Text 
MBLIB 10 A 1 Library 
MBSEU2 20 A 2 Source type 
MBFILE 30 A 3 File 
MBTXT Text 'description' 
MBNAME Member 
MBMTXT Member text description 
MBNRCD Current number of records 
Report column formatting and summary functions 
Summary functions: 1-Total, 2-Average, 3-Minimum, 4-Maximum, 5-Count Overrides 
Field Summary Column Dec Null Dec Numeric 
Name Functions Spacing Column Headings Len Pos Cap Len Pos 
Editing 
MBLIB 0) Library 10 
MBSEU2 5 2 Source 10 
Type 
MBFILE 2 File 10 
MBTXT 2 TEXT 50 30 
Text 
'Description' 
MBNAME 2 Member 10 
MBMTXT 2 Member Text 50 30 
Description 
MBNRCD 1. 2 Current 10 (0) 
Number Of 
Records 


Figure 11. Total Source Code by Library - Query Source (Part 1 of 2) 
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Report breaks 
Break New Suppress Break 
Level Page Summaries Text 


(0) No No Final Total Members/Records 
1 No No Library Total Members/Records 
2 No No ' §&MBSEU2 ' Source Type Total Mbr/Rcds 
3 No Yes 
Selected output attributes 
Output type. 6 ee a we ee ee ee es PHinter 
Form of output. 2% 2 3 2 eS we e 2 Detail 
hine wrapping 2.) Geo. gh eo eG eee Gg er NO 
Printer Output 
Printéer-dévice-—<. o. % tac Me bee ta ae PRING 
Report size 
Tengehy ag yd ge cdr a. oe eo eG DOG e166 
WEG. 5 can AS cp ooh seg gh Bee UP ce te ee te, BD. 
Report: start: line- 3 . « <6 8 ue be 6 
Report. -end): Tine: «oa so ee Be 3260 
Report line spacing ........ . . Single space 
Print: definition: «os 5 %. a So aak eoh e YES 
Printer Spooled Output 
Spool the output ........ . .. . (Defaults to value in print file, QPQUPRFIL) 
Form type. ............ . . (Defaults to value in print file, QPQUPRFIL) 
COLES ae: Bo ak Se BP eh cle ge ee 1 
Hold 2. 2 ee oe 8 ee eee ee ee sw (Defaults to value in print file, QPQUPRFIL) 
Cover Page 
Print Cover page ... 05 wa se. * $= « Yes 


Cover page title 
Total Source Code by Library 
Page headings and footings 
Print standard page heading ..... . Yes 
Page heading 
Total Source Code by Library 
Page footing 


Figure 12. Total Source Code by Library - Query Source (Part 2 of 2) 
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05/20 


Libra: 


QGPL 


CBLLE 


QGPL 


Figure 13. Total Source Code by Library - Query Output Listing 
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Total Source Code by Library 


QUERY NAME SRCTOTL 
LIBRARY NAME . A9701237 
FILE LIBRARY MEMBER 
DSPFDMBR A9701237 DSPFDMBR 
DATE 05/20/97 
TIME 09:58:21 
/97 09:58:21 
ry Source File TEXT MEMBER. 
Type Text Description 
' 
CBL QLBLSRC FILE FOR COBOL SOURCE VERIFY 
’ CBL ' Source Type Total Mbr/Rcds 
TOTAL31 
COUNT 1 
QCBLLESRC FILE FOR ILE COBOL SOURCE VERIFY 
' CBLLE ' Source Type Total Mbr/Rcds 
TOTAL 67 
COUNT 1 
CBL38 QCBLSRC FILE FOR COBOL SOURCE VERIFY 
' CBL38 ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
cL QCLSRC Default source data base file QPADEV0005 
Default source data base file TAPO2 
' CL ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 2 
CLP QCLSRC Default source data base file QSTRUP 
Default source data base file QSTRUP1 
' CLP ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
RPG QRPGSRC FILE FOR RPG SOURCE PROOF 
' RPG ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
RPGLE QRPGLESRC ILE RPG/400 Source File PROOF 
' RPGLE ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
RPG38 QRPGSRC FILE FOR RPG SOURCE PROOF38 
' RPG38 ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
SQL QM Jl 
' SQL ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
TXT QDDSSRC Default source data base file IFSSRC 
' TXT ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
Library Total Members/Records 
TOTAL 
COUNT 12 


Final Total Members/Records 
TOTAL 
COUNT 2,412 
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FORMAT 
QWHFDMBR 


Source Code by Library PAGE 1 
Member Text Current 
Number Of 
Description! Records 
COBOL VERIFICATION PROGRAM a 


ILE COBOL VERIFICATION PROGRAM 67 
COBOL VERIFICATION PROGRAM 
Bryan O'Brien - dlt after 9/13 6 


CREATED BY AUTO-CONFIGURATION 3 


114 


CHECK OUT INSTALLATION 


Check out Installation 


CHECK OUT INSTALLATION 


330 


242,577 


2.7.2 Total Source Code by Library for Source Code without Objects 


For each library by source type, a total count of the number of members and the 
number of lines of source code is provided. This includes a final count of all 
members and all lines of source code for all libraries, but only for members 
without created objects. 


The DSPFDMBR file is created with the following CL command: 


DSPFD FILE(*ALLUSR/*ALL) TYPE(*MBR) OUTPUT (*OUTFILE) 
FILEATR(*PF) OUTFILE (QGPL/DSPFDMBR) 


The DSPOBUD file is created with the following CL command: 


DSPOBJD OBJ (*ALLUSR/*ALL) OBJTYPE(*ALL) OUTPUT (*OUTFILE) 
DETAIL (*BASIC) OUTFILE (QGPL/DSPOBJD) 


The DSPFDMBR and the DSPOBUD files were used as input to the following 


query: 
QUELY! gsr 8S eel el 3) Sa cae ace a) ge iter eo ce gt SRETOERLNOB 
Hibrary~ $3. Gyr eee tet er Be te geo, AOVOL23T 
Processing options 
Use rounding .......... .. Yes (default) 
Ignore decimal data errors ... . . No (default) 
Ignore substitution warnings .. . . Yes 
Use collating for all compares .. . Yes 
Selected files 
ID File Library Member Record Format 
TOL DSPFDMBR A970123d DSPFDMBR QWHFDMBR 
TO2 DSPOBJD A9701237 DSPOBJD QLIDOBJD 


Join tests 
Type of join erg tte wie aie Ot . Unmatched records with primary file 
Field Test Field 


TO1.MBRES4 EQ TO2.ODOBNM 
Ordering of selected fields 

Field Sort Ascending/ Break Field 

Name Priority Descending Level Text 

TO1.MBLIB 10 A 1 Library 

TO1.MBSEU2 20 A 2 Source type 

TO1.MBFILE 30 A 3 File 

TO1.MBTXT Text 'description' 
Ordering of selected fields (continued) 

Field Sort Ascending/ Break Field 

Name Priority Descending Level Text 

TO1.MBNAME Member 

TO1.MBMTXT Member text description 

TO1.MBNRCD Current number of records 


Figure 14. Total Source Code (without Object) by Library - Query Source (Part 1 of 2) 
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Report column formatting and summary functions 


Summary functions: 1-Total, 2-Average, 3-Minimum, 4-Maximum, 5-Count Overrides 
Field Summary Column Dec Null Dec Numeric 
Name Functions Spacing Column Headings Len Pos Cap Len Pos 
Editing 
TO1.MBLIB 0) Library 10 
TO1.MBSEU2 5 2 Source 10 
Type 
TO1.MBFILE 2 File 10 
TO1.MBTXT 2 TEXT 50 30 
Text 
'Description' 
TO1.MBNAME 2 Member 10 
TO1.MBMTXT 2 Member Text 50 30 
Description 
TO1.MBNRCD 1 2 Current 10 (0) 
Number Of 
Records 


Report breaks 
Break New Suppress Break 
Level Page Summaries Text 


(0) No No Final Total Members/Records 
1, No No Library Total Members/Records 
2 No No ' §&MBSEU2 ' Source Type Total Mbr/Rcds 
B No Yes 
Selected output attributes 
Output ‘type: ce wk bee Ge BR ee Ae: = -PRinter 
Form .of: Output. 2.5 30 ¢ Sok +a a a = Detail 
Tine wrapping <0. ow 8 be wwe ee g NO 
Printer Output 
Printer :devide. » 2 2 ve vot a Gh ak OY ee RE PREND 
Report size 
Length: if teas. 2 ol Mee eee Ba sew ae £966: 
WOH .c* +3. Bete be $5? aerate. SAD ae ee ee, BZ 
Report: start line . + 2.2 2 Boe wR Be 6 
Report end Tine. . 6 we ke eee ee we «6-60 
Report line spacing ........ . . Single space 
Print definition, 3. sss ye a. 4. 3 are ee “YES 
Printer Spooled Output 
Spool the output ........ .. . (Defaults to value in print file, QPQUPRFIL) 
Form type .......... .. .. . (Defaults to value in print file, QPQUPRFIL) 
CODLTES! tg ie Sas are ap ns ee Ge a ey S 1 
Hold 2 oe ew we ee ee ee ee we ee  6(Defaults to value in print file, QPQUPRFIL) 
Cover Page 
Print cover page. « «. .io8 + « & ow + Yes 


Cover page title 
Total Source Code (without objects) by Library 
Page headings and footings 
Print standard page heading... .. . Yes 
Page heading 
Total Source Code (without objects) by Library 
Page footing 


Figure 15. Total Source Code (without Object) by Library - Query Source (Part 2 of 2) 


26 = AS/400 Applications: IBM Year 2000 Tools Tips and Techniques 


Total Source Code (without objects) 
QUERY NAME SRCTOTLNOB 
LIBRARY NAME . A9701237 
FILE LIBRARY MEMBER 

DSPFDMBR AI701237 DSPFDMBR 
DSPOBUJD A9I701237 DSPOBJD 
DATE 05/20/97 

TIME 09:59:05 


05/20/97 09:59:05 Total Source Code 
Library Source File TEXT 
Type Text 
"Description! 
QGPL CBL QLBLSRC FILE FOR COBOL SOURCE 
' CBL ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
CBLLE QCBLLESRC FILE FOR ILE COBOL SOURCE 
' CBLLE ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
QGPL CBL38 QCBLSRC FILE FOR COBOL SOURCE 
' CBL38 ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
cL QCLSRC Default source data base file 
Default source data base file 
' CL ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 2 
CLP QCLSRC Default source data base file 
Default source data base file 
' CLP ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 2 
RPG QRPGSRC FILE FOR RPG SOURCE 
' RPG ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
RPGLE QRPGLESRC ILE RPG/400 Source File 
' RPGLE ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
RPG38 QRPGSRC FILE FOR RPG SOURCE 
' RPG38 ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
SQL QM 
' SQL ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
TXT QDDSSRC Default source data base file 
' TXT ' Source Type Total Mbr/Rcds 
TOTAL 
COUNT 1 
Library Total Members/Records 
TOTAL 
COUNT 12 
Final Total Members/Records 
TOTAL 
COUNT 2,412 
*** END OF REPORT #* * * 


(without objects) 
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VERIFY 


VERIFY 


QPADEV0005 
TAPO2 


QSTRUP 
QSTRUP1 


PROOF 


PROOF 


PROOF38 
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IFSSRC 


Figure 16. Total Source Code (without Object) by Library - Query Output 


by Library 


FORMAT 


QWHFDMBR 
QLIDOBJD 


by Library PAGE 1 
Member Text Current 
Description Number Of 

Records 
COBOL VERIFICATION PROGRAM 31 
31 
ILE COBOL VERIFICATION PROGRAM 67 
67 
COBOL VERIFICATION PROGRAM 31 
31 
Bryan O'Brien - dlt after 9/13 6 
CREATED BY AUTO-CONFIGURATION 3 
9 
5S 
59 
114 
CHECK OUT INSTALLATION 23 
23 
Check out Installation 26 
26 
CHECK OUT INSTALLATION 19 
19 
9 
9 
ae 
al 
330 
242,577 


AS/400 Analyze User Objects Inventory Tool 


27 
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Chapter 3. SEARCH2000 Impact Analysis Tool 


This chapter describes SEARCH2000, which is the impact analysis tool used to 
discover the impact of date fields within your application. 


3.1 Introduction 


SEARCH2000 helps you find fields containing dates (year-sensitive fields) in your 
database files. It provides automated assistance in locating potential date fields 
in your databases. You confirm date fields and their format from the selected 
fields list created by SEARCH2000. 


BYPASS2000 Interface 
HSDATDFI “FILE 


Data Files 


> Assign 
| Date Fields juss Dates to 
in Files Program 

p Fields 


Programs ul Analysis 7 ! 


Object 
References 


Copybooks 8 Propagate 


Impact 
Analysis 
Report 


Figure 17. How Search2000 Works 


SEARCH2000 produces a series of reports that enable you to more specifically 
size the conversion effort (see Section 3.2.2, “Reports” on page 31). These 
reports show files and programs impacted by changes to date layout. 


SEARCH2000 produces a file called HSDATDFI that can interface with 
BYPASS2000, providing it with your year-sensitive database fields (see Appendix 
A, “Interfacing to BYPASS2000” on page 149). These files can automate a 
potentially time-consuming and error-prone manual process. 


3.2 SEARCH2000 Process 
You can see the process flow for SEARCH2000 in Figure 18 on page 30. 
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SEARCH2000 Process Flow 


Step 1 Step 2 
Add 
i——- Database 
Libraries 


Environment | 
Creation 


Step 3 
Work 
Database 
Libraries 


You can change the 
Step 4 default environment 
parameters 


Analysis 


Step 5 
Add 


Program 
Libraries 


Step 6 Step 7 


Work 
Program 1 P| Queries 


Libraries 


Step 8 


Interface 
BYPASS2000 


Figure 18. SEARCH2000 Process Flow 


3.2.1 Analysis 
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SEARCH2000 analyzes the information based on the following requirements: 
¢ You must specify the libraries that are searched. 


¢ You may specify a subset of date formats to consider (see a list of possible 
date formats in Appendix A, “Interfacing to BYPASS2000” on page 149). 


¢ You may specify a date range and some other parameters potentially affecting 
the date search technique. 


¢ You may specify the number of records to include in the sample that is to be 
browsed. 


SEARCH2000 looks for the date formats you have indicated in character, zoned, 
or packed fields into your data. For this search, it not only looks for dates in data 
fields that are explicitly defined in DDS, but also for dates inside larger fields and 
dates defined in multiple contiguous fields (that is, a date defined by one field for 
the year, one field for the month, and one field for the day). Date data type fields 
are also detected by the tool and reported. 


After finishing the analysis, SEARCH2000 displays a list of candidate date fields. 
Then, you can delete any non-date fields that the tool has found or add fields the 
tool may have missed. 


You can also run the search again with different parameters. 
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3.2.2 Reports 


After all the date fields have been identified and confirmed, SEARCH2000 
produces the following report, detailing files and programs impacted by the date 
data: 


¢ Date fields found in user files and libraries 

¢ Impacted files in user libraries 

¢ Files with date fields referenced in user programs 
¢ Impacted programs in user libraries 

¢ Impacted lines of code in user programs 

¢ Impacted program areas and fields 


These reports assist you with the following tasks: 
¢ Estimating the size of the work effort 
¢ Deciding whether to use a conversion tool or to make changes manually 
¢ Identifying the files and programs requiring review if you decide to work 


manually 


For detailed information about the reports, refer to Section 3.5, “Work with 
Reports” on page 43. 


3.2.3 Interface to BYPASS2000 


If you decide to use BYPASS2000 to convert your application, SEARCH2000 
prepares a file to interface with BYPASS2000 (the description of this file is in 
Appendix A, “Interfacing to BYPASS2000” on page 149). 


In addition, by using a SEARCH2000 repository, BYPASS2000 at V3R1M2 
generates its own file called HSDATDFN, which is an enhanced version of 
HSDATDFI. The HSDATDFN file allows seeding of packed date fields of a 
program described file to be exported and used in BYPASS2000. The HSDATDFI 
file does not possess this feature. 


This greatly simplifies the use of BYPASS2000 because it minimizes the amount 
of manual work you must do. 


3.3 SEARCH2000 Tutorial 


This section provides information about setting up the SEARCH2000 
environment and the reports the analysis process produces. 


3.3.1 Setting Default Parameters 


Before you analyze any files, you can choose to change the default parameters 
for analyzing files. 


From the Work with Files display, press F16. Figure 19 on page 32 shows the 
default parameter values that are used for analysis. These parameters help 
SEARCH2000 find the date fields. 
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Set Default Parameters 


Type choices, press Enter 


Number of records ..........4.4.2.22.4.. 50 

Valid date range (from:) ........2.2.2.. 1980 1901-1997 
Valid date range (to:) .........2.2.2.. 1999 1997-2050 
Submit: ans batGhis 2 sb os< So Bad kB era do ee Se *YES *YES, *NO 


Additional Parameters 


Ignore packed dates with trailing non-zero digits . *NO *YES, *NO 
Ignore packed dates with leading non-zero digits . *NO *YES, *NO 
Ignore dates spanning multiple fields ....... *NO *YES, *NO 
Ignore non-packed dates partially occupying a field *NO *YES, *NO 
Accept percentage of invalid data ......... 0 0-30 


F3=Exit F5=Refresh F10=Additional parameters F12=Cancel 


X / 


Figure 19. Set Default Parameters 


You can change the default values for the following parameters: 


¢ Number of records — Specifies the number of records that are sampled 
during the analysis. If it is greater than the number of records in a database 
file, all the records in that file are analyzed. Otherwise, the records to be 
analyzed are chosen from the file at even intervals. In most cases, 
approximately 500 to 1000 records are enough to find the date fields. 
Remember that the analysis time grows with the number of records analyzed. 


¢ Valid date range (from - to) — Tells SEARCH2000 the range of dates where 
the majority of dates in your database files belong. This is primarily to avoid 
getting too many false selections for a two-digit year field. Because 
SEARCH2000 looks for dates based on their values, if it searched for all 
possible two-digit year values, almost any numeric field appears to be a 
potential year. Therefore, limiting the range of expected date values allows the 
tool to be more selective in looking for two-digit year values. SEARCH2000 
finds many dates if they are made up of more than a year value (YMD or 
Julian), even if they are out of the valid date range. The default range (1980 - 
1999) seems to work well with most database files. 


¢ Submit in batch — Specifies whether to process the job in batch. Leave the 
default value of “YES. The analysis process can take a long time. 
If you press F10, the following additional default parameters are shown: 


¢ Ignore packed dates with trailing nonzero digits — If you are sure there 
are no dates with trailing nonzero digits embedded in packed fields in your 
database files, change the default value from *NO to *YES. 


¢ Ignore packed dates with leading nonzero digits — If there are dates with 
leading nonzero digits embedded in packed fields in your database files, 
change the default value from *YES to *NO. 
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¢ Ignore dates spanning multiple fields — If you are sure that all the dates in 
your database files are completely within one field, change the default value 
from *NO to *YES. 


Ignore dates occupying a partial field — If you are sure that all the dates in 
your database fields are not inside larger fields, change the default value from 
*NO to *YES. Notice that if your data is not externally described, you should 
leave this value as *NO. 


Accept percentage of invalid data — If you have some fields that have some 
data that may not be valid date values (for example, month values greater 
than 12 or day values greater than 31), you can specify that a small 
percentage of data that is not valid be overlooked when browsing for dates. 
We recommend that you leave this number very small to avoid having too 
many false dates found. 


After you finish setting the analysis parameters, press Enter to save the changes 
and then press F3 to exit. If you inadvertently press F12, you lose any changes 
that you have made. 


The Work with Files display is shown again. 


If you want to set different analysis parameters for a particular file, you can select 
option 1 for that file, and then press F4 (do not press Enter). The Set Parameters 
for Analysis display is shown for just that file. The available parameters and their 
meanings are the same as in setting the default parameters in Figure 19 on page 
32. 


You can change the parameters the same way you previously changed the 
default parameters. The changes are effective only for that file, for this specific 
analysis job. 


After submitting the analysis for the file, the Work with Files display is shown 


again. 


3.3.2 Analysis Process 


Select option 1 for the files you want SEARCH2000 to analyze on the Work with 
Data display. The analysis job is submitted to batch. 


To see the results of the analysis, the process flag must be set to Y and the 
Found count must be greater than zero (number of possible date fields found). 


3.3.2.1. Work with Dates for a File 
Select option 5 (Work with dates) on the Work with Files display to obtain the list 
of possible date fields found for a file shown in Figure 20 on page 34. 
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< 
oy 


Work with Dates 
File ORDERHDR 
Library BPMASTER 


Type choices, press Enter. Position to... 
4=Delete/undelete 6=Expand/not expand 
Num. Date Date Out of Min Max Field Digits Inf 
Opt Type Pos. Format Range Date Date Name Be Aft D Exp Pro 
_ BP 11 MDY 0 052996 053096 ORHDTA 01 00 0 PCM 
= P 15 MDY 0 052997 053097 ORHDLY 01 00 0 PCM 
A 26 YMD 0 960121 960121 SRNBR O01 02 0 PCM 


Bottom 
F3=Exit F5=Refresh F6=Create F12=Cancel F16=Show contents (DSPPFM) 
Fl7=Top F18=Bottom F19=Show/hide deleted F24=More keys 


Se ) 


Figure 20. Work with Dates for a File 


Select option 4 (Remove) on the Work with Files display to eliminate the fields 
that do not contain dates. If you decide to undelete any fields, press F19 
(Show/hide deleted) before using option 5 (Undelete) for the fields you choose. 


The columns on the Work with Dates display, shown in Figure 20, are explained 
in Table 6. 


Table 6. Columns in Work with Dates Display 


Column Title Description 

Opt Option you use for the possible date field 

Num Type Numeric type of the field (P = packed, A = zoned decimal or 
alphanumeric) 

Date Pos. Position of the record where the possible date field begins 

Date Format Date format fo the possible date field 

Out of Range Percentage of date values found outside the range 

Min Date Minimum value found for a date in this possible date field 

Max Date Maximum value found for a date in this possible date field 

Field Name Name of the possible date field 

Digits Be Aft Number of digits in the field before the beginning of the date value and 
the number of digits after the end of the date value 

Deleted Flag Flag for deleted fields. Value is Y if possible date field has been 
deleted 

Exp Expansion type of the field. Value is 0 for expansion, 1 for no 
expansion 

Inf Pro Information provider: PGM means SEARCH2000 found the possible 


date; USR means the user inserted the date field 


You can use several function keys on the Work with Dates display shown in 
Figure 20 on page 34. Press F24 to show more keys. 
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Press F21 (Show contents - RUNQRY) to see the Display Report display with the 
results of a query run over the file. A sample report is shown in Figure 21. This 
report can help you discard non-date fields. 


fe a 
Display Report 
Report width . 63 
Position to line pak Shift to colum ...... 
Line sb deSthenst ape baad a cua Gs Rta hed ek gatheae 64 aoe cks bal le. Atechers) naa ae 
ORHNBR CUSNBR ORHDTA ORHDLY ORHTOT SRNBR 
000001 00001 00003 52,996 52,997 5.65 A960121C 
000002 00002 00003 52,996 52,997 5.65 A960121C 
000003 00003 00003 52,996 52,997 5.65 A960121C 
000004 00004 00003 52,996 52,997 7.00 A960121C 
000005 00005 00003 52, 996 52,997 7.00 A960121C 
000006 00006 00003 52,996 52,997 7.00 A960121C 
000007 00007 00003 52,996 52,997 7.00 A960121C 
000008 00008 00003 52,996 52,997 7.00 A960121C 
000009 00009 00003 52,996 52,997 7.00 A960121C 
000010 00010 00003 52,996 52,997 10.50 A960121C 
000011 00011 00003 53,096 53,097 5.65 A960121C 
000012 00012 00003 53,096 53,097 5.65 A960121C 
000013 00013 00003 53,096 53,097 5.65 A960121C 
000014 00014 00003 53,096 53,097 5.65 A960121C 
KRKKKK KEKKKKKEK End of report KRKKKKKK 
Bottom 
F3=Exit F12=Cancel F19=Left F20=Right F21=Split 


XQ 


Figure 21. Display Report - File Query 


Notice that, in this case, the SRNBR field that was found by SEARCH2000 does 
not appear to be a true date field. It contains a date value in the middle of some 
other characters. Within our application, we do not want to treat this field as a 
date. 


We have some options to handle this situation. You can delete the SRNBR field 
from the list of possible date fields with option 4. There is another option we can 
explore by using some of the search parameters. 


Notice that, in this case, this field is not selected as a date field if we choose to 
ignore dates that do not fully occupy a complete field. There are extra characters 
before and after the date information. If we want to ask SEARCH2000 to ignore 
these kinds of situations in the files, we do not include this field on the list of 
possible date fields. 


To make this work, go back to the Work with Files display and select option 1 to 
work with the ORDERHR file again. This time, press F4 to prompt for search 
parameters. The display in Figure 22 on page 36 is shown. 
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7 
Set Parameters for Analysis 
Type choices, press Enter 
File .> ORDERHDR 
Library . .>  BPMASTER 
Member 7 *FIRST Name, *FIRST 
Number of veadrds : 50 
Valid date range (from:) 1980 1901-1997 
Valid date range (to:) 1999 1997-2050 
Submit in batch . *YES *YES, *NO 
Additional Parameters 

Ignore packed dates with trailing non-zero digits . *NO *YES, *NO 
Ignore packed dates with leading non-zero digits *NO *YES, *NO 
Ignore dates spanning multiple fields . *NO *YES, *NO 
Ignore non-packed dates partially occupying a Field *YES *YES, *NO 
Accept percentage of invalid data . 220) 0-30 
F3=Exit F5=Refresh F10=Additional parameters F12=Cancel 

Ne 


Figure 22. Set Parameters for Second Analysis of ORDERHDR 


On this display, change the parameter value for [Ignore dates occupying partial 
fields from *NO to *YES. Then, submit the analysis of this file. 


When the analysis completes, take the option to Work with Dates for the 
ORDERHDR file. This time, you see that the SRNBR field is ignored because it 


occupied only part of the field. See Figure 23 for the results of this new analysis. 


(— : fN 
Work with Dates 
File ORDERHDR 
Library BPMASTER 
Type choices, press Enter. Position to . 
4=Delete/undelete 6=Expand/not expand 
Num. Date Date Out of Min Max Field Digits Inf 
Opt Type Pos. Format Range Date Date Name Be Aft D Exp Pro 
P 11 MDY 0 052996 053096 ORHDTA 01 00 0 PCM 
P 15 MDY 0 052997 053097 ORHDLY 01 00 0 PCM 
Bottom 
F3=Exit F5=Refresh F6=Create F12=Cancel F16=Show contents (DSPPFM) 
Fl7=Top F18=Bottom F19=Show/hide deleted F24=More keys 
Ne / 


Figure 23. Work with Dates - 


Second Analysis 


3.3.2.2 Work with Fields 
To view the fields that are present in your SEARCH2000 environment, select 
option 19 (Work with fields) from the Work with Environment menu. Using the 
subsequent menu shown in Figure 24 on page 37, you can select the fields you 


want to filter out. 
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Specify Fields to Work With 


Type choices, press Enter 


Library ....... *ALL Name *generic*, *ALL 
Paes |. 8) SA eat Res *ALL Name *generic*, *ALL 
Field. ....... *ALL Name *generic*, *ALL 
Field type ..... 7 AP, N 
Field length between 0 99999 
Field text ..... * 
Column heading 1 * 
Column heading 2 * 

* 


Column heading 2 


F3=Exit F5=Refresh F12=Cancel 
XX fk 


Figure 24. Working with Specific Fields 


You can change the values for the following parameters: 


¢ Library — This allows you to look at fields from a specific library or libraries. 
The default is set to *ALL. 


¢ File —This allows you to look at fields from a specific file or files. The default 
is set to *ALL. 


¢ Field — This allows you to look at a specific field or fields. The default is set to 
*ALL. 


¢ Field Type — This allows you to look at fields according to type. The options 
are A for alphanumeric fields, P for packed fields and N for zoned decimal 
fields. The default is set to blank to indicate that all field types are selected. 


¢ Field Length — This allows you to look at fields that have a specific length or 
lengths. The default is set to 0 to 99999. 


¢ Field Text — This allows you to look at fields with a specific text description or 
text descriptions. 


¢ Column Heading — This allows you to look at fields with a specific column 
heading. 


After you finish selecting the parameters, press Enter to display the fields that 
you want to work with, as shown in Figure 25 on page 38. 
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Work with Fields 
Type choices, press Enter. Position to library . 
1=Work with field 9=Delete assignment Position to file 
Quick assignment: 2=YMD 3=MDY 4=DMY 5=YM 6=MY = 7=YJ 8=Y 
Field Field Field Field Date Inf 
Opt Name Displ Type Length Format Pro Exp Library File 
NAME 1A 10 BIRTH2000 CUST 
ADDRES 11 A 20 BIRTH2000 CUST 
BDAY 31 P(8,0 Be YX * P&M 1 BIRTH2000 CUST 
COMP 36 A 20 BIRTH2000 CUST 
LASTCH 56 P(14,0) 8 MDYY PQ@M 1 BIRTH2000 CUST 
CUSTINO 64 P(6,0 4 BIRTH2000 CUST 
NAME 1A 10 BIRTH2000 CUST6 
ADDRES 11 A 20 BIRTH2000 CUST6 
BDAY 31 P(6,0 4 BIRTH2000 CUST6 
COMP 35 A 20 BIRTH2000 CUST6 
LASTCH 55 P(14,0) 8 MULT. BIRTH2000 CUST6 
CUSTINO 63 P(6,0 4 BIRTH2000 CUST6 
More... 
F3=Exit F5=Refresh F10=Command line Fll=More info F12=Cancel 
F17=Top  F18=Bottom 
Ne y 


Figure 25. Result of Work with Fields 


3.4 Object Reference 
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After all the date fields are established, SEARCH2000 browses your object 
program libraries and tells you the impact of the date fields on your programs. 
You have to tell SEARCH2000 the names of the libraries where your program 
objects reside. 


Before you begin loading your copy sources and programs, you must let 
SEARCH2000 know where your source libraries and Copybook files are. You only 
need to do this if the source has been moved from the libraries where they were 
at the time of compile. To do this, select option 11 (Set default libraries) in the 
Work with Environments menu. As shown in Figure 26 on page 39, you can enter 
up to 10 source libraries in the list specifying which file in the library contains the 
COBOL and RPG copy source. 


>—— Important 


Always remember to run option 11 (Set default libraries) before you run option 
3 (Add a program library). 
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( Set Default Libraries and Files ) 
Type information, press Enter to confirm, F3 to exit. 
Level of program analysis . . 1 O0=Full source-code analysis 
1=Program-reference analysis 
Source files File list for File list for 
library list COBOL Copybooks RPG Copybooks 
F3=Exit F5=Refresh F12=Cancel 
KN J 


Figure 26. Set Default Libraries and Files 


After you have set your default libraries and files by using option 11, select option 
3 (Add a program library). 


You add these libraries the same way you add your database libraries. Enter the 
name of your program library. Choose whether to submit the job to batch. If you 
choose batch, you are prompted for a job queue to use. Press Enter. You receive 
a message confirming that the library is being loaded into the files (of the analysis 
environment library). 


Your program libraries may be the same as your database libraries. However, you 
must add them as program libraries. You can add as many program libraries as 
you need. 


3.4.1 Analyzing Programs 


After you have identified and verified the date fields found by SEARCH2000 
through file analysis, proceed with analyzing the program source. The program 
analysis establishes relationships between programs and the files that it uses. In 
addition, all lines of code that involve date sensitive information in the program 
are identified. 


After adding the program library (or libraries) to the environment, select option 13 
to work with programs and analyze the programs one at a time, as you previously 
did with the files. This time, the programs are analyzed in a different way. Select 
option 16 on the Work with Environments display (as shown in Figure 27 on page 
40) to have SEARCH2000 analyze all the programs in the environment in a single 
step. Press Enter to analyze all the programs in the environment. 
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Work with Environments 


Type choices, press Enter. Position to environment 
2=Add a file library 3=Add a program library 12=Work with files 
13=Work with programs 15=Analyze files 16=Analyze programs 


Opt Environment Text 


16 TEST Impact analysis environment library. 
_ TST Impact analysis environment library. 
___USENOT Impact analysis environment library. 
_ XYZ Impact analysis environment library. 


Bottom 
F3=Exit F4=Prompt F5=Refresh F6=Create F10=Command line F12=Cancel 
Fl7=Top F18=Botton F23=More options 


XN Y 


Figure 27. Work with Environments - Analyze All Programs 
Notice that to analyze all of the files in a single step, select option 15. 


To display more options, press F24. Select option 7 (Display dates found) to 
display all the date fields in your program found by SEARCH2000. 


If SEARCH2000 did not recognize a field that you know is a date field, you can 
manually assign a field as a date field. Select option 2 (Assign date to program 
area) in the Work with Programs menu (shown in Figure 28) to tell SEARCH2000 
that you want to make a field a date field. 


(— : a 
Work with Programs 
Type choices, press Enter. Position to library 
1=Analyze 2=Assign date to program area Position to program 
3=Propagate 5=Browse source 6=Display impacted LOC 7=Display dates found 
Source Source Source Lines LOC --File Inf-- 
Opt Program File Library Member of Code P Impact Used Dates 
_2 CANPGM QRPGSRC HODEC16 CANPGM B3uyY. 6 3 4 
___CURSET QRPGSRC HODEC16 CURSET LN, 2 
__ CUSTSET QRPGSRC  HODEC16 CUSTSET 23 Y 2 2 2 
__ INTPGM QRPGSRC  HODEC16 INTPGM 56 Y 6 4 4 
____ REPORT QRPGSRC HODEC16 REPORT 36 Y 4 4 
Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Command line F11=Toggle 
F12=Cancel F17=Top F18=Bottom F20=Subset list F23=More options 
XN yy 


Figure 28. Work with Programs 
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From the Work with List of Program-Area Fields menu (shown in Figure 29), you 
can set a field to be a date field. The information is stored in the SEARCH2000 
repository. 


fe a 
Work with List of Program-Area Fields 
Source name . CANPGM I/O area. . . *ALL 
Source type . PGM Field name . *ALL 
Field type . Field length between 00000 and 99999 


Type choices, press Enter. 
1=Switch date assignment on/off 


Opt Field Displ. Length Type Int Source 
a O01 BEG 6 2 PKD 2 CANPGM 
ra 01 END 1 2 PKD 2 CANPGM 
_ O01 TMPINT aE 3 PKD 2 CANPGM 
i) O01 TEMP 1 6 PKD 6 CANPGM 
= O01 TMPVAR 1 6 PKD 6 CANPGM 
_ 01 CALPER 1 2 PKD 2 CANPGM 
= O01 PER a 1 PKD 1 CANPGM 
- ol CT 1 a OPED 1 CANPGM 
- 01 CURDAT 1 6 ZND 6 CANPGM 

More... 

F3=Exit F5=Refresh F12=Cancel 

F17=Top F18=Bottom 


Figure 29. Work with List of Program-Area Fields 


To also display the lines of code that contain date sensitive information, select 
option 6 (Display impacted LOC) in the Work with Programs menu, as shown in 
Figure 30. This display gives you a general idea of what types of instructions are 
executed using date information. 


(— > 
Display Lines of Code Impacted by Dates 
Source name CANPGM 
SQNBR *...4+....1 t....2 + B....4...-4....4....5 + 6 + 7 
00011 Cc MOVE STRDAT START 
00012 Cc MOVE ENDDAT FIN 
00013 c MOVELSTRDAT BEG 20 
00014 Cc MOVELENDDAT END 20 
00022 ee END SUB BEG CALPER 20 
00039 Cc TIME LASTCH 
Botton 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom 
XV A 


Figure 30. Display Lines of Code Impacted by Dates 
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The columns on the Work with Programs display are explained in Table 7. 
Table 7. Columns in Work with Programs Display 


Column Title Description 

Opt Option you use for the object 

Object Name of the program object 

Source File Name of the source file that contains the source member from which 


the program object was created 


Source Library Library for the source file 

Source Member Name of the source member 

Lines of Code Number of lines in the source member 

P Has the analysis been processed? Y = Yes, S = Submitted for 


processing, W = Running now 


LOC impacted Number of lines of code that uses date sensitive information 
File Used Number of files used by the program 
Dates Number of possible date fields found by SEARCH2000 


When you press F11 (Toggle) on the Work with Programs display, the seven 
rightmost columns are replaced by four columns shown in Table 8. 


Table 8. Columns in Work with Object Display 


Column Title 


Description 


Opt Option you use for the file 
File Name of the file 

Library Library for the file 

Rec. Len. File record length in bytes 


Records Available 


Number of records in the file 


P Process flag: Value is blank if the file has not been analyzed, "Y" if the 
analysis has been run, and "W'" if the analysis is running in batch at the 
moment. It is "S" if the analysis has been submitted but not yet 
processed. 

Found Number of date fields in the file (found by SEARCH2000 or included by 
you) 

File text Text in the file description 

File Attr. Attribute of the file (PF, LF, DSPF, PRTF....) 


Option 8 (Display description) displays the full description of the program object. 


Option 12 (Work with) takes you to the Work with Referenced Files display shown 
in Figure 31 on page 43. 
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Work with Referenced Files 
Library HODEC16 
Program CANPGM 


Type choices, press Enter. Position to... 
1=Analyze 5=Work with dates 6=Work with fields 
Rec. Records File 
Opt File Library Len. Available P Found File text Attr. 
_ BANKDSP HODEC16 0 0 0 DSPF 
_  CusTO1L HODEC16 66 6 Y 2 logical file for LF 
DB HODEC16 36 6 Y 2 dds for moneypgml PF 


Bottom 


F3=Exit F4=Prompt F5=Refresh F12=Cancel F17=Top F18=Bottom 
X S/ 


Figure 31. Work with Referenced Files 


The contents of the columns in the Work with Referenced Files display are 
explained Table 9. 


Table 9. Columns in Object Referenced Files Display 


Column Title Description 

Library Library for the program object 

Attribute The type of the program object: RPG, CBL, or CLP 
Size The size of the program object in bytes 

Text The text in the program object description 


The following options are on this display: 
¢ Option 1=Analyze — The file analysis is submitted to batch. 


¢ Option 5=Work with dates — The Work with Dates display is shown in Figure 
20 on page 34. 


¢ Option 6=Work with fields — A list of all the fields in the file is shown. 


3.5 Work with Reports 


Several reports are included in SEARCH2000. From the SEARCH2000 Main 
Menu, select option 10 for the Reports Menu. Enter the name of your 
environment when prompted. The Reports Menu display in Figure 32 on page 44 
is shown. 
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(— QOCKUQMNU SEARCH2000 Report Menu > 
Select one of the following: 


Date fields found in user files/libraries 
Impacted files in user libraries 

Files with dates referenced in user programs 
Impacted programs in user libraries 

Impacted lines of code in user programs 
Impacted program areas and fields 


Nu PF WNP 


Selection or command 
===> 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 
F13=Information Assistant F16=AS/400 main menu 


ne a7, 


Figure 32. Reports Menu 


Options on this menu allow you to print or display four different queries that 
summarize the information found by SEARCH2000. Each option is described in 
the following text. 


Date fields found in user files/libraries 
The report is ordered by library, file, and field. The report lists the following 
information for each field: 


¢ Date format 

Type of field 

Field position in the record 

Offset of the date within the field 

Digits before and after the date in the field 


The report gives totals of date fields per file, per library, and final. 


Impacted files in user libraries 
The report is ordered by library and file. The query lists the following information 
for each file: 


¢ Number of possible date fields 


¢ Impact flag (flag value is 1 if the file contains date fields, and it is 0 if there are 
no date fields in the file). 


The report gives totals of files and of impacted files per library and final. 


Files with dates referenced in user programs 
The query output is ordered by library, program, and file. The query lists the 
following information for each impacted program: 


e File name 

¢ File library 

e File attribute 

¢ Number of date fields in the file 


The report gives totals of files with dates per program and of impacted files per 
library. 
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Impacted programs in user libraries 
The query output is ordered by library and program. The following information is 
provided for each program: 


¢ Program attribute 

¢ Number of files used 

¢ Number of date fields in the files 

¢ Lines of source code 

¢ Impact flag (flag value is 1 if any file used by the program contains date fields, 
and it is O if there are no date fields in any file used by the program). 


The report gives a total of impacted programs and programs per library. 


Impacted lines of code in user programs 
The report is ordered by library and program name. The following information is 
provided for each program: 


¢ Number of LOC that uses date fields in each program and in total 
¢ Lines of source code that uses date fields 

¢ Lines of source code 

¢ Each location of the source code that uses date fields 


Impacted program areas and fields 
The report is ordered by library and program name. The following information is 
provided for each program: 


e I/O Areas containing date sensitive information 
¢ Number of I/O Areas containing date fields in a program and in total 


3.6 Removing Libraries 


The following two options on the Work with Environments display allow you to 
remove libraries from your application analysis environment: 


¢ Option 4 (Remove a file library) — Use this option to remove a database 
library from your application analysis environment. 


¢ Option 5 (Remove an program library) — Use this option to remove a 
program library from your application analysis environment. 
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Chapter 4. BYPASS2000 Product Overview 


BYPASS2000 for AS/400 is a tool to assist you in migrating AS/400 RPG and 
COBOL applications to properly handle the transition to the Year 2000. Unlike 
other Year 2000 tools, BYPASS2000 uses application understanding technology 
to track the affected code, significantly reducing the amount of manual work 
required. 


The BYPASS2000 for AS/400 tool also assists AS/400 customers and business 
partners in addressing the Year 2000 challenge. Application developers and 
technical support staff can convert their AS/400 RPG and COBOL applications to 
properly handle four-digit years throughout their applications with a minimal 
amount of manual intervention. 


This tool uses program-understanding technology to locate and change areas of 
an application that need to be changed to accommodate four-digit years. After 
completion, the program source and data files can be recompiled and tested to 
ensure the application continues to execute as required. 


BYPASS2000 supports AS/400 applications written in RPG and COBOL, as well 
as related command language programs and AS/400 database files. It runs on 
Version 3 Release 1 of OS/400 and later. 


4.1 Overview of BYPASS2000 
The following overview shows the various features of BYPASS2000: 
¢ Supports AS/400 RPG and COBOL conversions. 
¢ Supports several additional national languages. 
¢ Supports double-byte systems. 


¢ Converts database and programs from two-digit to four-digit years or allows 
windowing techniques. 


¢ Allows displays and reports to remain unchanged. 


¢ Automatically generates code to map from four-digit database fields to 
two-digit display and print fields. 


¢ Converts the majority of changes required automatically. 


¢ Clearly highlights areas of the application that the tool cannot convert 
automatically. 


¢ Clearly documents all changes made to the application. 

¢ Generates programs to move data from old files to new database format. 
¢ Provides date simulation logic to assist with application testing. 

¢ Generates database triggers to ensure data integrity following conversion. 


e¢ Runs on OS/400 Version 3 Release 1 and later. 
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4.2 New Features in BYPASS2000, V3R1M2 


The following features were added in BYPASS2000, V3R1M2. 


Performance improvements (up to 50%) 


Full windowing technique available 


Date fields with century flag supported 


Online help text and level II messages improvements 


DDS source generation possible from Copybook or file object 


BYPASS2000 browser — An SEU type browser which includes function, such 
as letting you display the date-field properties or propagation tree. 


Ability to analyze OCL programs to obtain //FILE, //LOAD and OVRDBF and 
store it in the repository 


4.3 A More Detailed View of BYPASS2000 
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There are five main phases to a successful conversion using BYPASS2000. 
These phases are analysis, seeding, propagation, conversion, and testing. 


The first phase, analysis, begins by identifying the conversion environment. You 
specify the location of the programs and files to be converted. During the second 
phase, known as seeding or date assignment, all of the date fields that require 
conversion are identified. BYPASS2000 takes this information and builds a 
comprehensive repository of information about the application and the data used 
within the application. 


After the repository is built, the third phase, propagation, is started. BYPASS2000 
uses program understanding technology to trace the date fields stored in the 
database (and in program-described files) and identifies the areas within the 
application that need to change. 


BYPASS2000 actually analyzes the use of year data at the memory level within 
the application. BYPASS2000 follows the areas that are impacted by the year 
data (whether they are referenced or overlaid) until all areas within the 
application are identified. 


The fourth phase, conversion, reconstructs the application from the original 
source, making adjustments where required. All modifications made to the source 
are flagged for easy identification. Changes required for command language 
programs and data description specifications for file layouts are also generated 
automatically by the tool. In addition, programs to convert the database files from 
their original format to the new format are generated by the tool. 


The final phase, after conversion, is testing. This is a critical part of the Year 2000 
conversion process and must be planned. The tests required to ensure the 
applications perform as required vary greatly, depending on the application, and 
must be carefully planned. 


BYPASS2000 has facilities to assist testing. BYPASS2000 has data conversion 
utilities to allow you to change the date inputs to your application without actually 
changing fields in your database. This way, you can test specific critical dates 
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(January 1, 1999, December 31, 1999, January 1, 2000, and so on) without 
generating special test databases. 


BYPASS2000 also supports the generation of database triggers that can be 
attached to the converted files to ensure that only valid dates are input to and 
output from the database. 


4.3.1 Operating Environment 
The following items are required in the operating environment: 


¢ Any model of an AS/400 system running Version 3 Release 1 or later 
¢ ADTS (5763-PW1 or 5716-PW1) 


4.3.2 Restrictions 
The following restrictions apply: 
¢ COBOL is supported in Version 3 Release 1 Modification 1. 
¢ BYPASS2000 does not support ILE Languages. 


¢ Version 1 Release 1 is English only. National language support is provided in 
Version 3 Release 1. 


4.3.3 Ordering Information 


IBM BYPASS2000 for AS/400 can be ordered with number 5697-D11 (Version 3 
Release 1 Modification 2). 


IBM BYPASS2000 for AS/400 is included in several solution packs (software and 
hardware and software). 


4.3.4 Technical Support 


There are several ways to obtain support on the internet. There is the 
BYPASS2000 forum located at: 
news://news.software.iobm.com/ibm.software.bypass2000.as400 


To obtain more information, visit the IBM Web site at: 
http://www. software.iobm.com/ad/as400/bypass/ 


You can also visit the designers of BYPASS2000 in Italy on the Hal Web site, at: 
http://www. halinfo. it 


To obtain more information in North America, visit the Web site at: 
http://www.halna.com 


For more information about APARs and PTFEs, visit the Web site at: 
http://www. halna.com/Products/SupportBP.html 


4.4 How BYPASS2000 Works - Overview 
BYPASS2000 supports the conversion of the following data: 


¢ Field reference files (dictionaries) 
¢ Physical and logical files 

¢ External data structures 

¢ Display and printer files 
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¢ RPG/400 (RPG, RPG38, RPT) 

¢ COBOL/400 (CBL, CBL36, CBL38) 
¢ SQL programs (SQLRPG, SQLCBL) 
¢ Control language programs (CLP) 


4.4.1 Storage Mapping Propagation 


Storage mapping propagation locates all fields related to date fields within 
program logic. The tool analyzes program code to build a complete storage map 
of all data used or defined in the program. You identify all date fields only in 
database files. The tool uses the storage map (not field names) to locate all areas 
of storage in the program related to the date fields, for example, work fields, data 
structures and DS sub-fields, display or printer fields, and program parameters. 


DB DB DB DB 
Fid1 Fld2 Fld3 Fld4 
Work 
Work 
Work Fld3 FId6 Work 
Fld5 
\ Work 
Work Fld7 
Fld2 Work 
Fid4 


Legend: ©) Nnon-Date Field © pate Field 


Figure 33. Propagation: Searching for Affected Fields 


Figure 33 shows how BYPASS2000 propagation technology is able to find date 
fields defined within programs by means of understanding the relationships 
between fields (or storage) within a program. The arrows represent some kind of 
association. For example, a field is moved from one to another or is compared to 
another. By tracing all of the relationships among the pieces of storage, the tool 
identifies all of the fields that contain year data in preparation for modifying the 
code to support four-digit years in the database files. 


Propagation does not stop at the boundary of the program. Propagation can 
extend to externally described files and parameters passed to other programs. 
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Figure 34. Propagation Can Be Difficult 


Figure 34 shows how program understanding is crucial to correctly handling date 
propagation. In the move on the right, the propagation is quite simple. Many tools, 
even those that use only field names to associate fields, find this. 


In the two moves on the left, the propagation is more complex. The ORDDAT field 
is first moved to a sub-field of the data structure that contains the current 
YYMMDD structure of the date. Then, the YY portion is moved to the last two 
positions of the data structure. Finally, the restructured MMDDYY sub-fields of 
the data structures are moved to a display field. 


Notice that the same area of storage may be referred to by different names. In 
this example, the sub-fields labeled as MM and DD are referred to indirectly as 
part of FMTPT1 and FMTPT2. 


This example further complicates the process for tools using field names to find 
date files because FMTPT1 and FMTPT2 do not have names that are obviously 
date-related. With temporary work fields created by each programmer, 
nonstandard naming conventions are much more likely. BYPASS2000 uses its 
storage map to locate these fields and finds them because they are related to the 
ORDDAT field from the database. 


Note: Propagation works not only with moving fields as shown here, but with any 


association of the fields. Another common example is comparison of the fields 
(ORDDAT > YMD). 
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Figure 35. BYPASS2000 Process Overview 


Figure 35 shows an overview of the major processes that are part of conversion. 
The three long vertical boxes represent the three major batch processes. Take a 
look in more detail at each of the major steps to converting applications. 


To begin an application conversion, you set up a conversion environment to 
identify and classify the components of the application to be converted. This is a 
manual process. 


The main purpose of this function is to create a repository library and to specify 
which libraries contain the source to be converted. BYPASS2000 starts a function 
that lets you specify the old-source libraries, the old-objects libraries, new-source 
libraries, and the new-objects libraries. 


4.4.2 The Analysis Process 
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The analysis process is made up of the following steps within the BYPASS2000 
tool: 


1. Load AS/400 database information 
2. Memory-level analysis 


The tool creates a complete storage map of all data used in the programs and 
their relationships. 


The first step is the analysis of the database information. You perform this step 
using the Load AS/400 database information menu option. The analysis starts 
from the list of old-object libraries. 


The second step is the analysis of the source code (DDS, RPG, and so on) using 
the Memory-level analysis menu option. This is the analysis of the source 
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statements related to memory definition and management. Every field definition 
is stored in the repository with the information about its memory position. Every 
instruction is stored as a relationship between two or more portions of the 
memory. 


Memory analysis is done in these four parts: 


¢ DDS (Data Description Specifications) 

¢ Copy members (containing file descriptions for program described files) 
¢ SQL table definition source 

¢ Program source 


-— Attention 


These procedures are CPU intensive! 
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Figure 36. Nodes and Links in the Analysis Phase 


The purpose of the analysis is to create a network model of the application, 
where each node represents a field declared in a source object and each link 
represents a relationship between a two memory position or nodes. 


Analysis is done for all fields and instructions in the application. Date fields have 
not been identified to BYPASS2000 at this time. The model is built by analyzing 
program source, files, DDS source, and copies or includes. The model is stored 
in the BYPASS2000 repository database. 


4.4.3 Date Field Assignment 


You typically assign only fields from the database as dates. Using this 
information, together with the knowledge of the language constructs and syntax, 
BYPASS2000 can identify all of the remaining date impacted fields within the 
programs. The date field assignment is often called seeding. Seeding serves as 
preparation for the propagation phase that follows. Year-sensitive fields are 
known as anchors. 


If you already know the names of date fields used in programs, display files, and 
printer files, you identify them in the assignment process as well. Doing so may 
improve the performance of the propagation phase and may result in fewer 
situations where BYPASS2000 requests information after propagation. 


In addition to identifying which fields are dates, it is important to identify the 
format of the dates so that BYPASS2000 can track the year information. 
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4.4.4 Propagation 


The following topics provide information about propagation and how it is handled 
by BYPASS2000. 


4.4.4.1 Overview 

Propagation is probably the strongest feature of BYPASS2000. During this batch 
process, the tool locates and catalogs all other date fields in the programs from 
the assignment information received from the previous step. The propagation 
engine can find date fields even if they are only indirectly referred to in the 
program code (for example, if they are part of a data structure) or even if they are 
not referred to in the code at all (for example, record format containing date 
information is moved to another area). The propagation analysis is also extended 
to called programs by analysis of passed parameters. 


-— Attention 


This procedure is CPU intensive! 


Each program in the BYPASS2000 data model is made up of several networks of 
nodes and links. The BYPASS2000 model also includes relationships between 
programs, as well as within programs. This is important because some dates may 
only enter a program by means of a passed parameter. 


It may be found that, after the first run of the propagation, the propagation 
analysis tree is too deep or too large to enable the propagation analysis to 
complete successfully. Further definition of one or more internal fields and 
internal program areas as anchors adds an element of certainty that can shorten 
and speed up the propagation process itself. After providing the information 
required, it is necessary to delete the old propagation analysis and to perform the 
propagation analysis again. 


4.4.4.2 Application ID 

When propagating a very large application, you may encounter many problems 
that can overwhelm you. Application ID is a new feature of BYPASS2000 which 
allows you to partition your code so that the process can run in groups, rather 
than in one giant lump sum. By placing programs that exclusively call each other 
into groups, you can propagate each group while maintaining the global 
propagation property. This is different from single program propagation. When 
you propagate a single program, you are only propagating one level down the 
tree. This can result in date fields being missed. Application ID solves that 
problem by traversing through the entire group of programs to find all the date 
fields. See Chapter 6, “BYPASS2000 Tips and Techniques” on page 97, for more 
details. 


4.4.5 Conversion Output 


Converted DDS source contains the new expanded year information. Converted 
program source not only contains expanded year fields, but also often includes 
calls to subroutines that perform the necessary windowing technique for date 
data that appears on displays or reports. Remember that BYPASS2000 does not 
expand display or print files. However, it does generate the extra logic required to 
logically interpret two-digit years. 
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BYPASS2000 highlights the following information: 
¢ Changes made in the modified sources 


¢ Lines of code added (for example, the removal of the century information 
before the output of the display file) 


¢ Requests to manually verify and solve any logical incongruences (for 
example, the case of an area used both for dates and for non-date related 
data) 


¢ Instructions whose correctness must be checked (for example, the 
comparison between a date and a constant) 


BYPASS2000 creates the following utility programs for testing the converted 
application: 
Migration Module 
Copies the content of the original file to the converted format, adding 
the century to the widened-year fields. 


Test Module 
Performs a time shift of the database year-sensitive fields to allow 
simulating tests in the future. 


Data Integrity Verification Module 


Tests the logical congruence of the value assumed by the date fields 
following addition and modification operations of records to the file. 
BYPASS2000 provides a trigger program that can be used in the test 
activity. 
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Chapter 5. BYPASS2000 Tutorial 


The purpose of this chapter is to guide you through the basic steps for setting up 
and using BYPASS2000. 


5.1 BYPASS2000 Basic Steps 


In Figure 37, you can see the eight basic steps that you must follow when using 
BYPASS2000. 


Step 1: | Step2: | 


Set Up of Load 
Conversion Database 
Environment Information 


Assignment 
Propagation 
Compilation 


Step 8: 


ss 


Figure 37. Basic Steps for Setting Up and Using BYPASS2000 


>—— Important 


BYPASS2000 does not support duplicate names even in different libraries. 


In Step 1 through Step 6, you work with the BYPASS2000 tool directly. In Step 7 
and Step 8, you work with output produced by BYPASS2000. 
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Step 1 (Environment Setup) is generally performed only once. Follow the 


sequence for Step 2 through Step 8. You may need to repeat these steps more 
than once. When you repeat any of these steps, you must discard the results of 


any of the following steps you have already run. 


5.2 Step 1. Setting Up BYPASS2000 Conversion Environment 
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For each application conversion, perform the steps in this process only once. 


1. At the AS/400 Main menu, issue the following command and press Enter: 


ADDLIBLE QBP2000 


2. Start BP2000 to set up your conversion environment using the following 


command and press Enter: 


BP2000 *GEN 


The BYPASS2000 Environment Setup menu appears as shown in Figure 38. 


3. Select option 1 and press Enter. 


@ BP4AMBI BYPASS2000 Environment Setup 


Select one of the following: 
1. Create conversion environment 
3. Customize conversion parameters 


6. Work with object and source libraries 
7. Work with relationships between objects and sources 
8. Customize environment COPYs 
9. Work with field type 

0. Work with additional parameters 

1. Work with system fields 


13. Apply BYPASS2000 software key 


System: 


S1031GKM 


= 


Figure 38. BYPASS2000 Environment Setup 


4. On the next display, shown in Figure 39 on page 59, enter the chosen name 
for your conversion environment and specify *NO for the second parameter 


(Create default library). Press Enter. 
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Create Conversion Environment (BPCRTLIB) 
Type choices, press Enter. 


Conversion identifier ..... bp01 Name 
Create default environment... *no *YES, *NO 


Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


Figure 39. Create Conversion Libraries (Part 1 of 3) 


Note: If you specify *YES for Create default library parameter, BYPASS2000 
creates libraries with names based on the conversion environment name. You 
are responsible for moving your original source files and database files to 
these libraries. 


The name of the Conversion database library is set to your conversion 
environment name, in addition to the suffix DB. 


- Important 


Each time you want to work with an existing BYPASS2000 environment, you 
must type in BP2000 xxxxDB. 


a 


Ne 


~\ 
Create Conversion Environment (BPCRTLIBO) 
Type choices, press Enter. 
Create default environment . > *NO *YES, *NO 
Original source library > *NONE Name, *NONE 
Converted source library . > *NONE Name, *NONE 
Converted object library . > *NONE Name, *NONE 
Conversion-database library > BPO1DB Name 
User-database library > *NONE Name, *NONE 
User-SQL-database library > *NONE Name, *NONE 
Run inbatch.......... *YES *YES, *NO 
yy 


Figure 40. Create Conversion Libraries (Part 2 of 3) 
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. Press Enter. A last parameter is added to the display (Job queue). Specify the 
job queue you want to use, or accept the default of the job queue in your user 
profile, and press Enter (see Figure 41 on page 60). Because many of the 
batch processes in BYPASS2000 should be completed before proceeding to 
the next step, you may find it convenient to use a single-threaded job queue 
for your BYPASS2000 jobs. 
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(— aS 
Create Conversion Environment (BPCRTLIBO) 


Type choices, press Enter. 


Create default environment . > *NO *YES, *NO 
Original source library > *NONE Name, *NONE 
Converted source library . > *NONE Name, *NONE 
Converted object library . > *NONE Name, *NONE 
Conversion-database library > BPO1DB Name 
User-database library > *NONE Name, *NONE 
User-SQL-database library > *NONE Name, *NONE 
Run in batch. ......... *YES *YES, *NO 
Job queue ........... *JOBD Name, *JOBD 

Tip ary: 5 2 6 mn ar. gs Serta on “A Name, *LIBL 

Bottom 

F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 


F24=More keys 
\ a4 


Figure 41. Create Conversion Libraries (Part 3 of 3) 


After a while, the Work with Object and Source Libraries display appears, as 
shown in Figure 42. 


6. When using a customized setup, the entries for the Old Source Library, Old 
Object Library, and New Source Library are set to *NONE. You must change 
the corresponding values. For each type of information that you are converting 
(such as *FILE, CLP, DDS, and RPG), you must specify the location of the old 
source files and old object libraries, as well as the location for new source files 
and new objects. To change these values, place your cursor on the value you 
want to change and then, enter the new name. 


(— oy 
Work with Object and Source Libraries 
Type choices, press Enter. Position to . 
3=Copy 4=Delete 5=Display *=Reset old information 
Old Src Lib Old Src File Old Object Lib 
Opt Type Src SEU-Type Status New Src Lib New Src File New Object Lib 
_ *XFILE DAT PF *NONE: *NONE: *NONE, 
*NONE: *NONE: *NONE: 
— CBL CPy CBL *NONE: QLBLSRC *NONE 
*NONE: QLBLSRC *NONE: 
— CBL CPY CBL38 *NONE: QLBLSRC *NONE: 
*NONE: QLBLSRC *NONE: 
— CBL CPY UNS36 *NONE: QS36SRC *NONE: 
*NONE: QS36SRC *NONE: 
— CBL PGM CBL *NONE: QCBLSRC *NONE 
*NONE: QCBLSRC *NONE: 
— CBL PGM CBL36 *NONE: QS36SRC *NONE: 
*NONE: QS36SRC *NONE, 
More... 
F3=Exit F5=Refresh F6=Create Enter=Validate F9=Confirm 
F12=Cancel F17=Top F18=Botton F20=One/Two Rows 
NS S 


Figure 42. Work with Old and New Libraries 
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You can see the information for the new libraries and files using option 5 
(Display). 

Notice that if you have display files and printer files that are in other libraries, 
you must specify the location of those files. You must create an entry to 
specify that physical files exist in the subsequent library. The reason is that 
BYPASS2000 looks in an object library if, and only if, you specify that there 
are physical files in a library. By adding another entry for physical files, you are 
letting BYPASS2000 know that you have other objects in another library. This 
is shown in Figure 43. 


7. Press F6 to add a new entry, which tells BYPASS2000 the location of the other 


file objects or program sources. If you have type DSPF or PRTF located in 
another library, type in *FILE as shown in Figure 43. 


Create New Entry 


Type choices, press Enter. 


F3=Exit F5=Refresh F12=Cancel 


Xe SJ 


Figure 43. Create New Entry (Part 1 of 2) 


8. Press Enter. You are prompted to enter your Old object library and your New 
object library, as shown in Figure 44. 


(~ oN 
Create New Entry 
Type choices, press Enter. 
Type 2... ww ee. t *FILE 
Source: Cypees. <2. eee ee aS DAT 
SEU Hype Gh al ele Slee dS PF 
Old source library .... . : *NONE 
Old source file ....... : *NONE 
Old object library .....: HALNABP 
New source library .... . : *NONE 
New source file. ...... : *NONE 
New object library .....: HALY2K 
F3=Exit F5=Refresh F12=Cancel 
X yy 


Figure 44. Create New Entry (Part 2 of 2) 


9. Press Enter when finished. The display shown in Figure 45 on page 62 
appears. 
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XX 


~ 
Work with Object and Source Libraries 
Type choices, press Enter. Position to..: 
3=Copy 4=Delete 5=Display *=Reset old information 


Old Src Lib Old Src File Old Object Lib 


Opt Type Src SEU-Type Status New Src Lib New Src File New Object Lib 
*FILE DAT PF *NONE, NONE: *NONE: 
*NONE, *NONE: *NONE: 
*FILE DAT PF NEW *NONE, *NONE, HALNABP2 
*NONE, *NONE: HALY2K 
CBL CPY CBL *NONE: QLBLSRC *NONE: 
*NONE: QLBLSRC *NONE, 
CBL CPY CBL38 *NONE: QLBLSRC *NONE, 
*NONE, QLBLSRC *NONE: 
CBL CPY UNS36 *NONE: QS36SRC *NONE: 
*NONE: QS36SRC *NONE: 
CBL PGM CBL *NONE: QCBLSRC *NONE: 
*NONE: QCBLSRC *NONE: 
More... 
F3=Exit F5=Refresh F6=Create Enter=Validate F9=Confirm 


F12=Cancel F17=Top F18=Bottom F20=One/Two Rows 


Figure 45. Work with Object and Source Libraries 


Notice that you still must specify where your first set of data files are. 


If you plan to use the test migration feature, BYPASS2000 needs to use its 
migration programs to correctly migrate your data, as well as alter the dates in 
your files. Some modification may be needed to the sources for the test 
migration routine to work properly. One option is to change the member 
source located in QBP2000/QRPGSRC and recompile it. However, this is not 
safe because you are changing BYPASS2000 sources globally. If you have 
another project using BYPASS2000, then the changes made to the test 
migration routine will be used inadvertently by that project. 


A better way is to have duplicate BYPASS2000 sources in your user library. As 
shown in Figure 46, you can have the BYPASS2000 sources for test migration 
in your environment. You can alter the copy sources without the risking 
accidental change to the BYPASS2000 original files, which may affect another 
project using BYPASS2000. The best way to do this, besides making direct 
changes to the copy sources, is to select option 8 (Customize Environment 
COPYs) in the Environment Setup Menu. For example, this option, lets you 
change the time window your programs use to window dates after conversion. 
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Work with Object and Source Libraries 
Type choices, press Enter. Position to . 
3=Copy 4=Delete 5=Display *=Reset old information 
Old Src Lib Old Src File Old Object Lib 
Opt Type Src SEU-Type Status New Src Lib New Src File New Object Lib 
DDS DDS LF38 *NONE: QDDSSRC *NONE: 
*NONE: QDDSSRC *NONE: 
DDS DDS PF *NONE: QDDSSRC *NONE: 
*NONE, QDDSSRC *NONE: 
DDS DDS PF38 *NONE: QDDSSRC *NONE: 
*NONE: QDDSSRC *NONE: 
ENV CPY CBL MOD *NONE: *NONE *NONE: 
HALY2K QLBLSRC *NONE: 
ENV CPY CBL36 MOD *NONE: *NONE *NONE: 
HALY2K QS36SRC *NONE: 
ENV CPY CBL38 MOD *NONE: *NONE *NONE: 
HALY2K QCBLSRC *NONE: 
More... 
F3=Exit F5=Refresh F6=Create Enter=Validate F9=Confimm 
F12=Cancel F17=Top F18=Bottom F20=One/Two Rows 
Ne S 


Figure 46. Work with Object and Source Libraries 


-—— Important 


If you do decide to have BYPASS2000 source members copied into your 
new library, you must fill in all the entries for TYPE ENV in your enviroment 
setup. 


10.When you finish adding the entries for all of your file objects, file sources and 
program sources, press F9. The Customize Conversion Parameters display 
appears, as shown in Figure 47 on page 64. 
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Customize Conversion Parameters 
Conversion-database library ................ . : BPOIDB 
System.36:: COPY Tibrary 40-28 dee Ga ao eo ee ee GY dy te te Sy NONE 
Default conversion style . : 4 
Colum indentation: 1-9. 7: 4 
Use caller-called relationships during ap rears bo-aee 4-8 eecy 
Maximum level of propagation tree ... Sp ektst By Gers dye O12 
Maximum elapsed time for analysis of one program. ..... . : 0003600 
Maximum elapsed time for propagation of one program ... . . : 0003600 
Maximum elapsed time for conversion of one program... .. . : 0003600 
Remove REM marker from converted lines . : N 
Assume that value of program-name variable was gecitied : N 
Insert marker on the right ('Y')instead of the left ('N'). : N 
Insert SHIFT instruction on system date ee 
Generate instruction with quote('Y') instead of Sovceoehel IN"): PY, 
F3=Exit F5=Refresh F12=Cancel F9=Save 
x y 


Figure 47. Customize Conversion Parameters 


After you have made any required changes, press F9. 


11.You are asked to confirm the conversion environment creation as shown in 
Figure 48. Press F9 to confirm. 


. Confirm conversion-environment creation ? 


. F3=Exit F9=Confirm F12=Cancel . 


X y, 


Figure 48. Confirm Creation 


12.The display in Figure 49 on page 65 is shown, informing you that the creation 
has been submitted. Press F9 to continue. 
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. Environment creation submitted on JOBQ 


. Press ENTER to continue 


Figure 49. Creation Submitted 


After your environment is created, if you want to change any of the information 
you specified here, select option 22 from the BYPASS2000 Environment Setup 
menu shown in Figure 38 on page 58. For example, if you must change or add 
some source information or change some of the conversion parameters, you can 
change them even after the conversion environment is created. 


5.3 Step 2. Loading AS/400 Database Information 


In this step, BYPASS2000 analyzes all the database files found in the old object 
library specified for your data files in the previous step. 


BYPASS2000 finds the following information and loads it into the repository: 


¢ Structure of the record format of the files 

¢ Relationships between physical and logical files 
¢ Structure of access paths 

¢ Relationships between files and source members 


-—— Important 


Make sure your file objects match your file sources and that you are using the 
most current version of them (especially in relation with field reference files). 


At this point (and before running any BYPASS2000 program), you must ensure 
QBP2000 is in your library list. Perform the following steps: 


1. Type the following command and press Enter: 
ADDLIBLE QBP2000 

2. Type the following command and press Enter: 
BP2000 xxxcxxDB 


Where xxxxx is your conversion environment name (For more information, 
refer to Section 5.2, “Step 1. Setting Up BYPASS2000 Conversion 
Environment” on page 58). 


3. Select option 2 (Load database information) from the BYPASS2000 main 
menu, as shown in Figure 50 on page 66. 
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~ 
BP2000 BYPASS2000 for AS/400 - Main Menu 


System: $1031GKM 
Select one of the following: 


Environment setup 

Load database information 
. Memory-level analysis 

. Date-field assignment 
Propagation analysis 

. Application conversion 


Nu WDNH 


70. Work with submitted jobs 
71. Work with all spooled files 


90. Sign off 


Botton 
Selection or command 
===> 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 


Ne a 


Figure 50. BYPASS2000 Main Menu 


4. The display in Figure 51 is shown. Press Enter to accept the defaults. 


(— User-database information (BPLODASDB) 
Type choices, press Enter. 


Environment library ...... *LIBL Name, *LIBL, *CURLIB 
Run in batch. ......... *YES *YES, *NO 


Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


\ SJ 


Figure 51. Load AS/400 Database Information (Part 1 of 2) 


5. The display in Figure 52 on page 67 allows you to change the name of the job 
queue to be used. 


Remember, you may want to use a single-threaded job queue. 
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Type choices, press Enter. 


Environment library ...... *LIBL 

Runyan batch -ay38 fe sf ts. 3) Se hews *YES 

Job queue ..........--. *JOBD 
Tilbrary 2-9-2220 Sa eS Jes 


F24=More keys 


Name, 
*YES, 
Name, 
Name, 


User-database information (BPLODASDB) 


1, *CURLIB 


Bottom 


F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 


Figure 52. Load AS/400 Database Information (Part 2 of 2) 


6. Press Enter. The load database information job is submitted to batch. 


You must wait for this step to complete before continuing with Section 5.4, 


“Step 3. Memory-Level Analysis” on page 67 


5.4 Step 3. Memory-Level Analysis 


In this step, BYPASS2000 analyzes all the source statements for files, programs, 


copy members, and SQL table definitions. BYPASS2000 uses information from 


the repository that was loaded in the previous step. 


It finds and stores the following information in the repository: 


¢ The memory position of every field definition 


¢ The relationship between two or more memory positions for each instruction of 


every program 


For the memory-level analysis process, perform the following steps: 


1. Select option 3 (Memory-level analysis) on the BYPASS2000 Main Menu 


shown in Figure 50. 


The BYPASS2000 Memory-Level Analysis menu is shown in Figure 53 on 


page 68. 
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(— \ 
BP4SANL BYPASS2000 Memory-Level Analysis 


System: $1031GKM 
Select one of the following: 


. Work with database information 
Analyze database information 
Work with COPY sources 

. Analyze COPY sources 

. Work with SQL sources 

. Analyze SQL sources 

. Work with program sources 

. Analyze program sources 


DAI AHAOPWNEH 


10. Work with file overrides 
11. Work with dynamic calls 


13. Work with logical REDEFINES 


More... 
Selection or command 
— | 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 
(C) COPYRIGHT HAL S.p.A. 1994, 1998. 


Figure 53. BYPASS2000 Memory-Level Analysis 


2. If the old object library for database files contains source physical files, select 
option 1 (Work with database information) . This allows you to delete your 
source files (a sample of the display is shown in Figure 57 on page 70). You 
do not want source files converted. Deleting them takes them out of the 
analysis process. This saves time and space on the conversion environment 
repository. 


3. If step 2 is not valid, select option 2 (Work with database information) to run 
the global analysis of database files in batch mode. 


4. Select option 4 (Analyze Copy) if you have copy members. 


5. Select option 6 (Analyze SQL table-definition sources) if you have tables 
defined through SQL DDL. 


6. Select option 8 (Analyze programs). 


Options 1, 3, 5, and 7 (Work with...) are usually more appropriate when tasks 
have been performed more than once. 


5.4.1 Batch Options 


68 


There is batch support on the BYPASS2000 Memory-Level Analysis menu shown 
in Figure 53, for the following options: 


¢ Option 2, Analyze database information 

¢ Option 4, Analyze Copy 

¢ Option 6, Analyze SQL table-definition sources 
¢ Option 8, Analyze program 


These batch options leads you to a corresponding Analyze... display. 
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See Figure 54 for an for an example of this display (option 2, Analyze database 
information). 


f= = 
Analyze Database Information (BPANLDDS) 


Type choices, press Enter. 


From: DDS 2 oss eerie ag WAS a eG *FIRST Name, *FIRST 
ToDDS.........2.2. 2. +. ~ *LAST Name, *ONLY, *LAST 
Application code. ....... *ALL Name, *ALL, *BLANK 
Environment library ...... *LTBL Name, *LIBL, *CURLIB 
Run an batcGh 2.6. sas BS eh ae a *YES *YES, *NO 


Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


Ne yy 
Figure 54. Analyze DB Information (Part 1 of 2) 


Notice an added parameter for the job queue as shown in Figure 55. 


(— 3y 
Analyze Database Information (BPANLDDS) 


Type choices, press Enter. 


From. DDS@'s 4.53 42. 323 4t 203-20 2.8 *FTRST Name, *FIRST 
TOUDDS: 2. ih: Se oe Se wt Ge eee EASE Name, *ONLY, *LAST 
Application code ........ *ALL Name, *ALL, *BLANK 
Environment library ...... *LIBL Name, *LIBL, *CURLIB 
Run an-batch 2-2 2 we be *YES *YES, *NO 
Job queue! 3.2. 203 sak st ee *JOBD Name, *JOBD 

Te DY Ary. gorse Ste oa ae oe oa aces Name, *LIBL 


Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


Ne w 


Figure 55. Analyze DB Information (Part 2 of 2) 


The analysis job is submitted to batch. You can see the status of the analysis 
using the interactive option for the same type of source. 


5.4.2 Interactive Options 


The following interactive options on the BYPASS2000 Memory-Level Analysis 
menu are shown in Figure 53 on page 68: 


Option 1, Work with database information 

Option 3, Work with Copy 

Option 5, Work with SQL table-definition sources 
Option 7, Work with program 


Select option 1 (Work with data base information). The Select Parameters display 
appears as shown in Figure 56 on page 70. 
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e Work with Database Information 
Select Parameters 
DDS name... .: *ALL *ALL, name, generic* 
Application code : *ALL *AIL, name, generic* 
Processing status Analysis Conversion 
Not started (0) Y Y 
In progress (1-8) ¥ Y 
Completed (9) = ~ 
F3=Exit F12=Cancel 
Ne S 


Figure 56. Work with Database Information - Select Parameters 


You can select specific names or remove any of the prompted selections (as 
shown in Figure 56) if you want to reduce the list shown after you press Enter (a 
sample list is shown in Figure 57). 


(— >\ 
Work with Database Information 


Position to . 
Type choices, press Enter. 
2=Change 4=Delete 5=Display 8=Hold 9=Release 
T=Input source O=Output source V=View log E=Reset cnv. flag K=Reset chk 
A=Analyze D=Delete analysis C=Convert F=Override files J=Dynamic call 


Opt DDS Name Ana Cnv Gen Log Req Chk 

___ CUSTOMER 9 0 

__ DATETEST 9 0 

_ ORDERDTL 9 0 

__ ORDERHDR 9 0 

_ PROD 9 0 

__ SALESCUS 9 0 

__ STOCK 9 0 

Bottom 

F3=Exit F4=Prompt F5=Refresh Fé=Create F10=Reset flag F11l=Toggle F13=Repeat 

a F12=Cancel F15=Include new member F21=Command entry F24=More keys 


Figure 57. Work with Database Information - Type Choices 


With this display, you gain control of the status of your application conversion. 
There is also a variety of choices available for each element included in the list 
shown. 


You can get online information by pressing F1. 
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5.4.3 After Running Any Memory Analysis Option 


Every time you run a memory-level analysis option, review the conversion log. 
Select option 22 on the BYPASS2000 Memory-Level Analysis menu shown in 
Figure 53 on page 68. 


The Display Conversion Log display is shown. You can select the type of 
messages you want to look at or accept the default value for seeing all the 
messages and press Enter (see Figure 58). 


(— ; . = 
Display Conversion Log 
From date (YYMMDD) 
Type choices, press Enter. 
4=Delete 5=Display 
Opt Program Source Type Message description 
_ PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDAT155 OF PGM Field not propagated: type CALL, caller OE, 
_ PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDAT155 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_ PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_ PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_  PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
_ PRPDATI55 OF PGM Field not propagated: type CALL, caller OE, 
Bottom 
F3=Exit F5=Refresh F11=Display date,time, object F12=Cancel 
F13=Repeat option F17=Top F18=Bottomn F23=Clear log 


Figure 58. Display Conversion Log 


The list of messages is shown in the conversion log. To display any of them for 
more information, select option 5. 


If any messages direct you to check requested information, select option 21 on 
the BYPASS2000 Memory-Level Analysis menu shown in Figure 53 on page 68. 


After you have taken action on the messages, select option 4 to delete them one 
at a time. Press F23 to clear the entire log. If you clear the entire log, you are 
given the option to create a backup copy and store it in your environment for 


future reference. 


r—— Important 


If you use F23 to clear the log, remember that you are clearing al/ the 
messages in the log, and not only those you are viewing. 


Conversion logs occupy space on your disk. Therefore, delete them as soon as 
you no longer need them. 
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5.5 Step 4. Field Assignment (Seeding) 


BYPASS2000 converts fields in source programs according to the results of the 
propagation analysis. Propagation analysis starts from the seeded database 
fields to find all the fields affected by them in the internal areas of the programs. 


5.5.1 Database Field Assignment 


In this field assignment step, all database fields containing dates must be 
identified with their correct format. 


Field assignment divides all database fields into two groups: 


¢ Year-sensitive fields 
¢ Non-year sensitive fields 


This is the phase of the conversion process that requires the most intervention 
from you. 


You must enter the information interactively, unless you use an impact analysis 
tool that interfaces with BYPASS2000 (more information can be found in 
Appendix A, “Interfacing to BYPASS2000” on page 149). Perform these steps: 


1. Select option 4 from the BYPASS2000 Main Menu as shown in Figure 50 on 
page 66. The BYPASS2000 Date-Field Assignment menu appears, as shown 
in Figure 59. 


ay 
BPSRCASS BYPASS2000 Date-Field Assignment 


System: S1031GKM 
Select one of the following: 


. Assign date field for I/O area related to file 

. Assign date field 

. Assign I/O area to related file 

. Assign record type to related I/O area 

Work with migration utility programs 

Print list of assigned date fields 

Work with user-default date 

Work with date fields not to expand or propagate 
9. Assign dates from files to program and COPY areas 
10. Work with dates in files 

11. Import external field assignment (HSDATDFT) 

12. Import external field assignment (HSDATDFN) 

13. Load field assignment into HSDATDFN for export 
14. Create interface from IBM SEARCH2000 repository 


ONIN AHADUO PWN EP 


More... 
Selection or command 


===> 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 


& y 
Figure 59. BYPASS2000 Date - Field Assignment 


2. Select option 1 (Assign date field for I/O area related to file) and press Enter. 
The display shown in Figure 60 on page 73 appears. 
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(- “N 
Assign Date Field for I/O Area Related to File 
Select Source Name or I/O Area 
Type choices, press Enter. 
Source: 
Name ..... *ALL *Al1, name, generic* 
I/O area: 
Name ..... *ALL *Al1, name, generic* 
Sequence. 0 Number 
File: 
Type .... . *ALL *Al1, name 
Name .... . *ALL *Al1, name 
F3=Exit F12=Cancel 
X yy 
Figure 60. Assign Date Field for I/O Area Related to File 
3. Because this is the first time that you are seeding fields, accept the defaults 
and press Enter. 
The Assign Date Field display in Figure 61 shows the list of database files 
BYPASS2000 previously stored in the repository. 
( Assign Date Field >) 
I/O-Area List 
Position to . 
Type choices, press Enter. 
1=Select 6=Print assigned date fields A-Assign from dict. to database 
2=Set/Reset file as dictionary ---- File attributes ----- 
Opt Src. Name I/O-Area Name Seq A Type Name D 
_ CUSTOMER * CUSTOMER 000 PF CUSTOMER 
_ DATETEST *DATES 000 PF DATETEST 
_  ORDERDTL *ORDERDTL 000 PF ORDERDTL 
1 ORDERHDR *ORDERHDR 000 PF ORDERHDR 
_ PROD * PROD 000 PF PROD 
_  SALESCUS * SALESCUS 000 PF SALESCUS 
1 STOCK * STOCK 000 PF STOCK 
Bottom 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom F21=Print assigned date fields of listed sources 
<a yy, 


Figure 61. Assign Date Field (I/O Area List) 


4. 


5. 


Select the database files that contain date fields using option 1 and press 
Enter. You see the field list for each selected file. 


Use option D for the date fields shown in Figure 62 on page 74. 
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(— ; : ; . \ 
Assign Date Field - Field List 
DDS name ORDERHDR I/O area *ORDERHDR Seq 0 
Search field name: Position to displ: 
Type choices, press Enter. 
D=Assign date field 1-7=Quick-assign date field W=Work with assigned date 
*=Annul assignment R=Reusable field V=View all attributes 
Data Field F F Field Fld Field Int. D 
Opt Type Name R Occ. G Displ Type Len. Dec. A 
01 ORDERHDR ¥ 1 CHAR 34 00 
7 02 ORHNBR 1 CHAR 5 00 
NUMBER 
_ 02 CUSNBR 6 CHAR 5 00 
CUSTOMER CODE 
= 02 ORHDTA 11 PKD 4 60 
ORDER DATE !!! 
7 02 ORHDLY 15 PKD 4 60 
DELIVERY DATE !!! 
More... 
F3=Exit F5=Refresh F11=View colhdg Fl4=Set HI rules F15=View only highlight 
LL F17=Top F18=Bottom F19=Field type F20=Default type F21=PF contents ie ene 


Figure 62. Assign Date Field - Field List 


F21 causes a file query to run. This query shows default-edited fields. If you 
are not sure which fields are year-sensitive, it can help you find them or 
determine what format the dateis in. 


For a sample of the query output, see Figure 63. 


(— Display Report 
Report width . 63 
Position to line 24 Shift to colum ...... 
Line wetsee tet a ee tiie Seaton Ae ee casts Gen 
ORHNBR CUSNBR ORHDTA ORHDLY ORHTOT SRNBR 
000001 00001 00003 52,2596 52,997 5.65 A960121C 
000002 00002 00003 52, 996 52,997 5.65 A960121C 
000003 00003 00003 52,996 52, 297 5.65 A960121C 
000004 00004 00003 52996 52,997 2380 A960121C 
000005 00005 00003 52,996 5A, O97 7.00 A960121C 
000006 00006 00003 52,296 52,997 7.00 A960121C 
000007 00007 00003 52,996 B27 oo? 7.00 A960121C 
000008 00008 00003 52,996 52,997 7.00 A960121C 
000009 00009 00003 52,996 52, 997 7.00 A960121C 
000010 00010 00003 52,996 52,997 10.50 A960121C 
000011 00011 00003 53,096 53,097 5.65 A960121C 
000012 00012 00003 53,096 53,097 5.65 A960121C 
000013 00013 00003 53,096 53,097 5.65 A960121C 
000014 00014 00003 53,096 53 097 5.65 A960121C 
KKKKKK KKKKKKKK End of report KKKKKKKEK 
Bottom 
F3=Exit F12=Cancel F19=Left F20=Right F21=Split 
Ne wy, 


Figure 63. Display Report 


When you select a field as a date field, you must specify the date format in the 
Create New Date-Field entry display, as shown in Figure 64 on page 75. 
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BYPASS2000 provides you with a default date format for your field based on 
the length of the field. If this is not the correct date format, press F4 to select 
from the list of possible date formats. 


You can also see a complete list in Appendix A, “Interfacing to BYPASS2000” 
on page 149. 


6. Leave the default values for the remaining entries. 


fi ; \ 
Create New Date-Field Entry 


Type choices, press Enter. 


Source name ...... .. . : ORDERHDR 

I/O-area name. ....... . =: + *ORDERHDR 

I/O-area sequence number. . . : 000 

Field name. ........ +. : ORHDIA 

Displacement. ....... .: 00011 

Type... 2... ee et) PRD 

Length. ........4... 2 00004 

Integer / Decimal. .....: #6 =O 

Date type... ...... =. +: 003 DAY,MONTH, YEAR, /MONTH, DAY, YEAR 

Position-field substring. . . : 00001 

Length-field substring. . ..: 00004 

Field type. .........: ®P 

Year length. .....4..4.: #2 

Expansion type. .......: 0 (O=Default /1=Not expand /2=Expand + one 
reusing /3=Expand + one /4=Expand + two) 

Propagation type. ... : 0 (0=Propag./1=Not propag./2=Upon confim. ) 


F3=Exit F4=List date type F5=Refresh F12=Cancel 


X wy 


Figure 64. Create New Date-Field Entry 


7. Press Enter. You return to the field list shown in Figure 65 on page 76. The 
information on the date format has been added to the left of the date fields and 
they are marked as Date Assigned fields. 
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(— ; j . ; \ 
Assign Date Field - Field List 


DDS name ORDERHDR I/O area *ORDERHDR Seq 0 
Search field name: Position to displ: 


Type choices, press Enter. 
D=Assign date field 1-7=Quick-assign date field W=Work with assigned date 


*=Annul assignment R=Reusable field V=View all attributes 
Data Field F F Field Fld Field Int. D 
Opt Type Name R Occ. G Displ Type Len. Dec. A 
_ 01 ORDERHDR ¥ 1 CHAR 34 00 
= 02 ORHNBR 1 CHAR 5 00 
NUMBER 
= 02 CUSNBR 6 CHAR 5 00 
CUSTOMER CODE 
DMY 02 ORHDIA 11 PKD 4 60Y 
ORDER DATE !!! 
DMY 02 ORHDLY 15 PKD 4 60Y 


DELIVERY DATE !!! 


More... 


F3=Exit F5=Refresh F11=View colhdg F1l4=Set HI rules F15=View only highlight 
F17=Top F18=Bottom F19=Field type F20=Default type F21=PF contents F12=Canc. 


Se SJ 


Figure 65. Assign Date Field - Field List 


A new feature in BYPASS2000 V3R1M2 is the ability to convert date fields 
with a century bit to a full four-digit year date field. There are several scenarios 
that can occur. 


If you have a one-digit century field by itself that you want to expand, you can 
simply assign type 20 (Century Flag) to that field. BYPASS2000 expands that 
to a full four-digit year field as shown in Figure 66. 


lg ; , ; >) 
Assign Date Field - Field List 


DDS name DATA I/O area *DATES Seq 0 
Search field name: Position to displ: 


Type choices, press Enter. 
D=Assign date field 1-7=Quick-assign date field W=Work with assigned date 


*=Annul assignment R=Reusable field V=View all attributes 
Data Field F F Field Fld Field Int. D 
Opt Type Name R Occ. G Displ Type Len. Dec. A 
O01 DATES ¥: 1 CHAR 5 00 
D 02 CENTRY 1 PKD 1 10 
CENTURY 
02 CENDTE 2 PKD 4 70 


DATE W/CENTURY 


Bottom 


F3=Exit F5=Refresh F11=View colhdg F14=Set HI rules F15=View only highlight 
F17=Top F18=Bottom F19=Fieldtype F20=Default type F21=PF contents F12=Canc. 


\ ) 


Figure 66. Assign Date Field - Field List 
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To continue, press Enter. Choose Date type 20 for the century flag, as shown 
in Figure 67. 


X 


Create New Date-Field Entry ) 

Type choices, press Enter. 
Source name ........ .: DATA 
I/O-area name. ....... : 4*DATES 
I/O-area sequence number. . . : 000 
Field name. ........ +. : CENTRY 
Displacement. ....... . : 00001 
Tyee dba BO EA PKD 
Length Yeo! Bae ae be eat 00001 
Integer / Decimal. .....: Ts 0 
Date type ......... . : 020 CENTURY FLAG 
Position-field substring. . . : 00001 
Length-field substring. . . .: 00001 
Field type. .........: 2P 
Year length. ........: 21 
Expansion type. .......: 21 (O=Default /1=Not expand /2=Expand + one 

reusing /3=Expand + one /4=Expand + two) 
Propagation type. ......: 0 (0=Propag./1=Not propag./2=Upon confimn. ) 
F3=Exit F4=List date type F5=Refresh F12=Cancel 

ey 


Figure 67. Create New Date-Field Entry - Before 


9. 


Press Enter to confirm. Notice that when you have a century flag by itself, 
BYPASS2000 forces the Expansion type to be 1. 


If your century flag is part of a larger date field, you must seed the century and 
year-sensitive part of it, as shown in Figure 68 on page 78. Assuming that you 
have a seven-digit date field with the first bit being the century flag and the 
second and third bits being the year bits, you must seed the field as type 1 
(Year). Be sure that you start at position 1 and have your Year length set to 3. 
By doing this, BYPASS2000 automatically knows that your field contains a 
century flag followed by year bits. 
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Create New Date-Field Entry 
Type choices, press Enter. 
Source name .........: DATA 
I/O-area mame. ....... =: + *DATES 
1I/O-area sequence number. . . : 000 
Field name. ........ =. : CENDIE 
Displacement. ....... . : 00002 
TY PSs was. o ke) x tes gh adies ae Se 3° GPRD 
Length... ......... 2 00004 
Integer / Decimal ......: #7 = O 
Date type ......... =. : O01 YEAR 
Position-field substring. . . : 00001 
Length-field substring. . ..: 00004 Date position... : 00001 
Field type. .........: P 
Year length . 3 
Expansion type. 0 (O=Default /1=Not expand /2=Expand + one 
reusing /3=Expand + one /4=Expand + two) 
Propagation type. ......: 0 (0=Propag. /1=Not propag./2=Upon confimm. ) 
F3=Exit F4=List date type F5=Refresh F12=Cancel 


e 


S 


Figure 68. Create New Date-Field Entry - After 


10.Press Enter to continue. Select option W beside the field that you have just 
seeded as shown in Figure 69. 


Assign Date Field - Field List 
DDS name DATA I/O area *DATES Seq 0 
Search field name: Position to displ: 


Type choices, press Enter. 
D=Assign date field 1-7=Quick-assign date field We=Work with assigned date 


*=Annul assignment R=Reusable field V=View all attributes 
Data Field F F Field Fld Field Int. D 
Opt Type Name R Occ. G Displ Type Len. Dec. A 
01 DATES a 1 CHAR 5 00 
_ CE 02 CENTRY 1 PKD To ae 0.5% 
CENTURY 
W Mult 02 CENDTE 2 PKD 4 70Y 


DATE W/CENTURY 


Bottom 


F3=Exit F5=Refresh F11=View colhdg Fl4=Set HI rules F15=View only highlight 


F17=Top F18=Bottom F19=Field type F20=Default type F21=PF contents F12=Canc. 
Ne 


Figure 69. Assign Date Field - Field List 


11.Press Enter. In Figure 70 on page 79, you can see that BYPASS2000 


automatically sees that there is a century bit followed by a two-digit year bit in 


your seeding. 
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Work with Assigned Date Field 
PGM name DATA I/O area *DATES Seq 0 
Field name : CENDTE Displacement ..: 2 
Field type : PKD Length ..: 4 Integer / Decimal: 7 0 
Type choices, press F3 to confirm your update. 
2=Change *=Annul assignment 
Opt Dtf Description--------- Date Pos Position Length Type Year Sty Pro 
_ 020 CENTURY FLAG 00001 00001 00004 P 1 ds 0 
001 YEAR 00002 00001 00004 P 2 0 0 
F3=Exit with Confimm F5=Refresh F6é=Create new date field 
F12=Cancel F17=Top F18=Bottom 
Ne y 


Figure 70. Work with Assigned Date Field 


5.5.2 If You Use a Dictionary (Field Reference File) 
If you use a field reference or data dictionary file for your database files, it is 
possible to seed the date fields only in the dictionary. BYPASS2000 moves them 
to all the files that refer to the dictionary. 


Do this seeding first, then proceed with the rest of the files (the ones that do not 
use a field reference file). Select option 2 on the Assign Date Field display to 
specify the field reference file as a dictionary. This display is shown in Figure 61 
on page 73. If you have multiple copies of your data dictionary, make sure you 
use the most updated one. Also, make sure that the files you are using match the 
field reference file definition. 


After assigning the date fields in this dictionary file, assign them from the 
dictionary to the database. Select option A in the Assign Date Field I/O Area List 
display for the dictionary and for the database files using it, as shown in Figure 61 
on page 73. 


If you specify Create New dictionary in the Customize Conversion Parameters 
(option 3 in the Setup Environment menu), BYPASS2000 creates the new default 
source (HBPDIZ, unless you have chosen another name in option 3 (Customize 
conversion parameters) in the Environment Setup Menu). After conversion of the 
dictionary, the new source is placed in the first library containing your converted 
DDS-PF source file. 


5.5.3 Assigning Date Fields Not in Database 
You can assign fields that are not defined in databases but in other I/O areas in 
programs or in COPY source members. Follow these steps: 


1. If you must seed these types of fields, select option 2 from the BYPAS2000 
Date-Field Assignment menu shown in Figure 59 on page 72. Option 2 shows 
the Assign Date Field - Select Source - I/O Area display as shown in Figure 71 
on page 80. 


BYPASS2000 Tutorial 79 


80 


Assign Date Field 
Select Source - I/O Area 


Type choices, press Enter. 


Source: 
Name ..... *ALL *Al1, name, generic* 
Type... ... PM POM, CPY 

I/O area: 
Name ..... *ALL *Al1, name, generic* 
Sequence. . .. 0 Number 


F3=Exit F12=Cancel 
Ne yy 


Figure 71. Assign Date Field - Select Source - I/O Area 


2. Specify if you want to select fields from COPY source members or from 
non-database related I/O areas in source programs. You can also change the 
default from *ALL (for all the members) to just a name or a generic name to 
reduce your selection. Press Enter. 


You see a list of the selected CPY or PGM members.Select option 1 for the 
source members where you seed date fields (see Figure 72). 


Work with Programs 
Position to . 
Type choices, press Enter. 
2=Change 4=Delete 5=Display 8=Hold 9=Release 


I=Input source O=Output source V=View log A=Analyze 
D=Delete analysis P=Propagate Q=Delete propagation C=Convert 
Opt Pom Name Type Ana Prp Cnv Gen Log Req Chk 
CINS RPG 9° 9: 40 
CORD RPG 9. 9 0 
DATRIN RPG 9 9 0 
FNLO RPG 9 9 0 
GETJOB CLP 9 9 0 
OE RPG 9°. 9°, 40 
ORDSTK RPG 9 39. 0 
RIDT RPG i) 9 0 
RSTO RPG 9 9 0 
RSTR RPG 9" 94 10 
STROE CLP ae: a) 
Bottom 
F3=Exit F4=Prompt F5=Refresh Fé=Create F10=Reset flag F1ll=Toggle F13=Repeat 
F12=Cancel F21=Command entry F23=More option F24=More keys 
e yy 


Figure 72. Assign Date Field - Select Source 
3. After you select a source member, press Enter. The Assign Date Field - 
Program I|/O-Area List display is shown. 


On this display, you can select the I/O areas (fields) you assign as seeds, as 
shown in Figure 73 on page 81. 
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Assign Date Field - Program I/O-Area List 
Pom name CINS 
Position to . 
Type choices, press Enter. 
1=Select 2=Select with lock *=Annul all assignments and locks 
6=Print assigned dates -Assigned- 
Opt I/O-Area Name Seq Date Lock 
_ cusTOT 000 
_ CUSZIP 000 
_ DATEL 000 
_ DATE2 000 
_ DRDATA 000 
_ DRHDLY 000 
_ DRHDTE 000 
__INSOK 000 
1 JAREA 000 Y 
_ -JB400 000 
_ NBR 000 
_ NEWORD 000 
_ ORDNO 000 
More... 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom F21=Print assigned date fields of listed sources 
Ne SD 


Figure 73. Assign Date Field - Program |/O-Area List 


4. After you have selected an I/O area, pressed Enter. The Assign Date Field - 
Field List display for the selected I/O area appears, as shown in Figure 74. 


f ; ; . . \ 
Assign Date Field - Field List 


PGM name CINS I/O area JAREA Seq 0 
Search field name: Position to displ: 


Type choices, press Enter. 
L=Lock area A=Assign date fields, locking selected area level 5=Displ.attr. 
*=Annul lock O=Assign date fields, locking only assigned fields 


Lock Field R G Field Fld Field Int. D 
Opt Type Name F Occ. F Displ Type Len. Dec A 
_ Ol JAREA 1 CHAR 34 00 
5 02 BRIN 1 BI 4 90 
SS 02 BAVA 5 BH 4 90 
= 02 JBNAME 9 CHAR 10 00 
_ 02 UNAME 19 CHAR 10 OO 

02 JBNBR 29 CHAR 6 00 


Bottom 
F3=Exit F5=Refresh F12=Cancel F14=Set highlight rules F15=Only highlight 
F17=Top F18=Bottom F19=Work with field type F20=Work with default type 
Ne y 


Figure 74. Assign Date Field - Field List (for the I/O Area) 


When you assign database fields, all non-seeded fields are automatically locked 
by BYPASS2000 as non-year sensitive fields and seeded fields are locked as 
year-sensitive fields. However, when you seed non-database I/O areas, you may 
want to ensure that all fields are properly locked, either as year-sensitive or as 
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non-year sensitive fields. In Figure 74 on page 81, you have different options for 
locking the non-database I/O area fields. 


5.5.4 Display and Printer Fields 


BYPASS2000 does not, by default, expand any display (MAP) or printer (PRT) 
fields. However, these fields can be assigned as year-sensitive fields. 


Printer fields are never propagated but you can choose to expand them. If so, you 
must be aware of not overflowing the number of characters in the print line and 
make the appropriate title alignments. Display fields may be expanded and 
propagated. 


5.5.4.1 Expanding MAP/PRT Fields 
To expand the MAP/PRT fields, perform these step: 


1. Select option 8 (Work with field not to be expanded (MAP, PRT)) on the 
BYPASS2000 Field Assignment menu shown in Figure 59 on page 72. The 
Select Programs display in Figure 82 on page 89 is shown. 


2. Select the program where the MAP/PRT field is used. 
The Work with Not to be Expanded or Propagated Field display in Figure 75 is 


shown. 
(— . . = 
Work with Not Expanded or Propagated Fields 
Program name : CINS 
Position to date: 
Type choices, press Enter. 
4=Delete *=Undelete 5=Display full data 
Inf I/O Area I/O Field Field Usr 
Opt COPY Name Typ Name Seq. Field Name Displ Len. Act 
_ MAP CUSDES 0 CUSDES 1 18 
a MAP DRHDLY 0 DRHDLY yl 6 
7 MAP DRHDTE 0 DRHDTE aE 6 
Bottom 
F3=Exit Fé=Insert new field F12=Cancel 
F17=Top F18=Bottom F23=Delete all user fields 


Figure 75. Work with Field Not-to-Be Expanded or Propagated 


3. Select option 4 (Delete) for the display or printer fields you want to be 
expanded. 


5.5.4.2 Century Window Routine 

For dealing with non-expanded MAP/PRT fields in calculations, BYPASS2000 
inserts routines that add the century according to Section 5.7.1.1, “Add Century 
Routine” on page 94. 


5.5.5 Additional Options in Field Assignment 
On the BYPASS2000 - Date Field Assignment menu shown in Figure 59 on page 
72, there are additional options that are briefly described here: 


¢ Assign I/O area to related file (option 3): This option is used to relate I/O 
areas to files to get the field description for non-externally described files or to 
use a different field description for a file. 
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Assign record type to related I/O area (option 4): This option is used for 
multiple format files. You see every record format assigned in option 3 for files 
to which you have assigned more than one record format. Assign different 
record types to each of the record formats used in multiple format files. 


Work with migration utility programs (option 5): This option is used to 
create migration, test, and DIM routines for selected files. 


Print list of assigned date field (option 6): This option is used to print the 
list of assigned database date fields. 


Work with user-default date (option 7): This option is used to specify one or 
several field names as dates with their corresponding date format. These field 
names are assigned as year-sensitive fields in all your application programs. 


Work with date fields not to expand or propagate (option 8): This option is 
used to work with date fields found on display and printer files. You choose to 
make some of these date fields expandable (you can find more information in 
Chapter 6.6, “Hints and Tips” on page 132). 


Assign dates from files to program and COPY areas (option 9): This 
option is used to allow BYPASS2000 to automatically assign date fields in 
your program and copy source that references single or multiple format files. 


Work with dates in file (option 10): This option is used to display a list of 
files with dates assigned. There you can delete any of them (this just removes 
the date field assignments for that file) or you can select one file. When you 
select a file, you see a list of the assigned date fields with their characteristics 
(not field names). You can delete any of the fields (this will just remove the 
seeding). 


Import external field assignment (HSDATDFI) (option 11): This option is 
used if you have used an impact analysis tool that can interface to 
BYPASS2000, for example, SEARCH2000 (for information, see Appendix A, 
“Interfacing to BYPASS2000” on page 149). If you use this option, you do not 
need to use Assign Date Field for I/O Area Related to File" (option 1); see 
5.5.1, “Database Field Assignment” on page 72. 


Import external field assignment (HSDATDFN) (option 12): This option is 
used if you have used SEARCH2000 to interface with BYPASS2000. 
However, unlike HSDATDFI which is generated by SEARCH2000, HSDATDFN 
does not exist until you run option 14 (Create interface from IBM 
SEARCH2000 repository). 


Load field assignment into HSDATDFN for export (option 13): This option 
is used to export the current field assignment to the file HSDATDEN to be 
used in another conversion environment. 


Create interface from IBM SEARCH2000 repository (option 14): This 
option is used if you have completed your task using SEARCH2000. to create 
the file HSDATDFN. When this option is selected, BYPASS2000 looks in your 
SEARCH2000 environment and generates the file HSDATDFN which 
BYPASS2000 can use. 
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5.5.6 Most Common Problems 


This section provides a list of some common problems that can occur when using 
BYPASS2000: 


¢ If you must modify the definition of a field as a seed — You must delete 
the assignment of that field using option "*" in the Assign Date Field - Field List 
display shown in Figure 62 on page 74. 


You must reassign it using option D in the same display. If the date field 
definition that you must modify belongs to a data dictionary field and it has 
already been assigned to the physical files, (see Section 5.5.2, “If You Use a 
Dictionary (Field Reference File)” on page 79), you must follow these steps: 


1. Delete the previous definition from all the files where it has been assigned 
from the dictionary. 


2. Delete and re-create the assignment in the data dictionary. 


3. Perform the assignment of the data dictionary seeded fields to the physical 
files again. 


You must take the previous steps because the automatic assignment of 
seeded data dictionary fields to physical files does not replace any definitions 
that already exist. 


If you must seed other data dictionary fields — You just perform the 
assignment to the physical files after having seeded the fields. 


If a work field (a field declared in a CPY or in a program I/O area) uses 
two different date formats — It must be assigned using option M. If you must 
delete the assignment, you must use option W in the Assign Date Field - Field 
List display shown in Figure 74 on page 81. Before using option M or W, you 
must first select option A (Assign date fields). 


If a field is used in many programs as a date field — It is possible to assign 
it using option 7, Assign general user default date (see Figure 60 on page 73). 
If this field is not used as a date in a specific program, you can lock it in the 
program as a non-year sensitive field. Program seeding overrides general 
user-default date seeding. For more information, see Section 5.5.3, “Assigning 
Date Fields Not in Database” on page 79. 


r—— Note 


The correct identification and assignment of year-sensitive fields is the basis 
for the propagation process. This step requires the careful attention. 


5.6 Step 5. Propagation-Level Analysis 


84 


This is the main step. In this step, BYPASS2000 propagates year-sensitive fields 
through the internal program areas. The propagation is also extended to called 
programs by the analysis of passed parameters. 


The propagation process is iterative. The maximum number of iterations is 
established in the Customize Conversion environment step assigning a value to 
the Maximum level of propagation tree parameter shown in Figure 47 on page 64. 
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Propagation works with the following input stored in the repository tables: 
¢ The results of the memory-level analysis step 


¢ The assignment of the year-sensitive and non-year sensitive fields done in the 
field assignment step (see Section 5.5, “Step 4. Field Assignment (Seeding)” 
on page 72) 


Based on this input, BYPASS2000 builds a complex tree of relationships along 
the branches of which the year field attribute is propagated from one area to 
another. 


The iterative propagation process ends when the following conditions occur: 


¢ All the branches of the propagation tree have been searched until finding a 
field defined as a seed or a field already infected (that is, a field to which the 
year attribute has been passed to). Therefore, the job ends normally. 


¢ A higher level of iteration than the threshold defined during the conversion 
environment setup needs to be performed. Therefore, the job ends 
abnormally. 


Because the relationships between memory areas include even the association 
of the parameters passed by the calling programs with the parameters received 
by the called programs, propagation analysis can work within a single program or 
between different programs (inter-program propagation analysis). 


Therefore, all programs that are related must be included in the BYPASS2000 
process. To start the propagation-level analysis, follow these steps: 


1. Select option 5 on the BYPASS2000 Main Menu, as shown in Figure 50. 


f= >) 
BP4SPRP BYPASS2000 Propagation Analysis 


System: S1031GKM 
Select one of the following: 


1. Assign date fields 


5. Work with programs 
6. Analyze date-field propagation 


22. Display conversion log 
23. Acknowledge requested information 


30. Work with propagation-analysis result 
31. Check propagation trace 
32. Delete propagation-analysis results 


70. Work with submitted jobs 
71. Work with all spooled files 
Bottom 
Selection or command 
===> 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 


X S 


Figure 76. BYPASS2000 Propagation-Level Analysis 


2. Select option 6 (Analyze date-field propagation) on the BYPASS2000 
Propagation Analysis menu as shown in Figure 76. 
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The Analyze Date-Field Propagation display in Figure 77 appears. 


X 


~\ 
Analyze Date-Field Propagation (BPPRPPGM) 
Type choices, press Enter. 
From program . *PFIRST Name, *FIRST 
To program... . *LAST Name, *ONLY, *LAST 
Application code . *ALL Name, *ALL, *BLANK 
Environment library *LIBL Name, *LIBL, *CURLIB 
Run in batch . *YES *YES, *NO 
Bottom 

F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 

S 


Figure 77. BYPASS2000 Analyze Date-Field Propagation (Part 1 of 2) 


3. Accept the defaults to submit the job to batch and press Enter. A parameter 
for job queue is added to the previous display shown in Figure 78. 


Remember that you must use a single-threaded job queue. 


(— \ 
Analyze Date-Field Propagation (BPPRPPGM) 
Type choices, press Enter. 
From program . *FIRST Name, *FIRST 
To program . 8 *LAST Name, *ONLY, *LAST 
Application code . *ALL Name, *ALL, *BLANK 
Environment library *LIBL Name, *LIBL, *CURLIB 
Run in batch . *YES *YES, *NO 
Job queue *JOBD Name, *JOBD 
Library Name, *LIBL 
Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 
Ne S 


Figure 78. BYPASS2000 Analyze Date-Field Propagation (Part 2 of 2) 


4. To check the progress of the job, select option 5 (Work with program) from the 
BYPASS2000 Propagation-Level Analysis menu shown in Figure 76 on page 


85. 
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(i ; N 
Work with Programs 
Select Parameters 
Source name . *ALL *ALL, name, generic* 
Source file . : *ALL *ALL, name, generic* 
Application code : *ALL *ALL, name, generic* 
Processing status Analysis Propagation Conversion 
Not started (0) Y ¥ Y 
In progress (1-8) Y Y Y 
Completed (9) Y ¥ Y 
F3=Exit F12=Cancel 
a sf 
Figure 79. Work with Program - Select Parameters 
The Work with Program - Select Parameters display appears, as shown in 
Figure 79. You can accept the default values or you can reduce the list of 
programs to receive by changing the default values. 
5. Press Enter. The Work with Program list display in Figure 80 appears. 
a . ay 
Work with Programs 
Position to . 
Type choices, press Enter. 
2=Change 4=Delete 5=Display 8=Hold 9=Release 
F=Override files lL=Logical REDEFINES J=Dynamic call E-Reset cnv.flag 
Opt Pom Name Src File Library Ana Prp Cnv History Appl. Code 
_  CINS QRPGSRC BPSRC 9 9 0 PA 
_ CORD QRPGSRC BPSRC 9 9 0 PA 
_ DATRIN QRPGSRC BPSRC 9 9 0 PA 
_ FNLO QRPGSRC BPSRC 9 9 0 PA 
_ GETJOB QCLPSRC BPSRC 9 9 0 PA 
_ OF QRPGSRC BPSRC 9 9 0 PA 
_  ORDSTK QRPGSRC BPSRC 9 9 0 PA 
_ Ri QRPGSRC BPSRC 9 9 0 PA 
_ RSTO QRPGSRC BPSRC 9 9 0 PA 
_ RSTR QRPGSRC BPSRC 9 9 0 PA 
_  STROE QCLPSRC BPSRC 9 9 0 PA 
Bottom 
F3=Exit F4=Prompt F5=Refresh F6é=Create F10=Reset flag Fll=Toggle F13=Repeat 
F12=Cancel F21=Command entry F23=More option F24=More keys 
Ne ey 
Figure 80. Work with Program - List 
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6. You can use different options on this display according to the issues presented 
within the BYPASS2000 conversion process (refer to Section 6.6, “Hints and 
Tips” on page 132 for more information). 


At the end of the propagation step, you can check the output using the Work with 
propagation result option (for information, refer to Section 5.6.1, “Work with 
Propagation Results” on page 88) and the Check propagation trace option (refer 
to Section 5.6.2, “Check Propagation Trace” on page 90). 


Remember to review the conversion log and check the required information. 


5.6.1 Work with Propagation Results 


A list of the analyzed programs is shown. You can see (for each of them) all the 
date fields found with certainty (flag = Y) and the areas defined as generic (flag = 
G). Generic fields are fields linked both with seeded date fields and with fields 
that have been locked as non-year sensitive. Resolve the generic fields before 
continuing. For each field, you can see which date field has propagated the 
year-sensitive condition to it and you can check the source member for the 
instruction that has generated the propagation. 


To work with the propagation-level results, follow these steps: 


1. Select option 30 on the BYPASS2000 Propagation-Level Analysis menu 
shown in Figure 76 on page 85, or, on the Work with Program list display 
shown in Figure 80 on page 87, press F23 (More option) and then, use option 
W for any file. 


If you select option 30 on the BYPASS2000 Propagation-Level Analysis menu, 
the Work with Propagation Result - Select Parameters display shown in Figure 


81 appears. 
(— . ; ny 
Work with Propagation Result 
Select Parameters 
SOULCE: Tame. et de Fe ee ee “ek : *ALL *ALL, name, generic* 


Only sources with 


Propagation incongruences found : * (Y/N/*) (Y=At least one found) 
(N=None found) 
Propagation status forced by user: * (Y/N/*) (*=A11 programs) 


F3=Exit F12=Cancel 


X ) 


Figure 81. Work with Propagation Result - Select Parameters 
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2. You can accept the defaults for the parameters or change them to reduce the 
list you see after you press Enter. 


The Select Programs display in Figure 82 appears. 


3. Options available at this point are option 1 (Select) and option | (Input source). 
Option O (Output source) is not available because programs have not yet 
been converted. Therefore, no output source is created. 

ff \ 

Select Programs 
Position to . 
Type choices, press Enter. 
1=Select I=Input source O=Output source 
oSieessse- Propagation ---------- 
Opt Program Name Source File Library Incongruence Changed Status 
_ CINS QRPGSRC BPSRC 9 
_ CORD QRPGSRC BPSRC 9 
_ DATRIN QRPGSRC BPSRC 9 
_ ENO QRPGSRC BPSRC 9 
_ GETJOB QCLPSRC BPSRC 9 
_ CE QRPGSRC BPSRC 9 
_ ORDSTK QRPGSRC BPSRC 9 
_ RSTO QRPGSRC BPSRC 9 
__RSTR QRPGSRC BPSRC 9 
_ STROE QCLPSRC BPSRC 9 
Bottom 
F3=Exit F12=Cancel F17=Top F18=Bottom 

Ne SD 

Figure 82. Select Program 
If you select any programs, you receive the propagation results for each of 
them on the Select Date Field display as shown in Figure 83. 

(— \ 


Select Date Field 
Program name: CINS 
Position to date field: 
Type choices, press Enter. 


1=Date origin 
D=Date field assigned 


Opt Src Name Field Name------------ Type Len. Date Type-------------- Proc 
_  CINS APP PKD 2 1 YEAR OK 
_ CINS DATE1 PKD 6 3 DAY,MONTH, YEAR, /M OK 
_ CINS DATE2 PKD 6 3 DAY,MONTH, YEAR, /M OK 
_ CINS PARM2 ZND 6 3 DAY,MONTH, YEAR, /M OK 
_ CINS DRHDLY ZND 6 3 DAY,MONTH, YEAR, /M OK 

CINS DRHDTE ZND 6 3 DAY,MONTH, YEAR, /M OK 


F3=Exit F4=Propag.trace 


F12=Cancel F7=Original source 


XQ 


5=View statement 
I=I/O-area field list 


F5=Refresh 


F8=Converted source 
F19=List assigned date 


F=File origin 
U=Update flag 


Bottom 
F17=Top F18=Bottom 
F20=One/Two Rows 


SJ 


Figure 83. Select Date Field 
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4. Use the options and function keys according to your requirements. 


Option 1 permits you to know which date field seeded by you allowed 
BYPASS2000 to discover this date field by propagation. 


You see this same display if you use F23 and then, option W from the Work 
with Programs list display shown in Figure 80 on page 87. 


5.6.2 Check Propagation Trace 


90 


This function allows you to check the results of the propagation analysis to 
discover and solve ambiguous transitions between fields. 


Check Propagation trace can only be run if the propagation analysis has ended 
normally (propagation analysis status flag = 9). 


For each program, it is possible to view every infected area and the possible 
incongruences with the direction of the transition (which area infected it and 
which areas have been infected by it), that is, the propagation steps. 


To start this function, select option 31 from the BYPASS2000 Propagation-Level 
Analysis menu shown in Figure 76 on page 85. This function shows the 
propagation steps followed by BYPASS2000. The Display Propagation-Trace 
entry display is shown in Figure 84. 


a . ; >) 
Display Propagation Trace 
Type choices, press Enter. Position to ..: 
1=Select 
Opt Program Name Source File Library Ana. Prop. Conv. Incongruence 
_ CINS QRPGSRC BPSRC 5 9 0 N 
_ CORD QRPGSRC BPSRC 9 9 0 N 
_ DATRIN QRPGSRC BPSRC 9 9 0 N 
_ FNLO QRPGSRC BPSRC 9 9 0 N 
_ GETJOB QCLPSRC BPSRC 9 9 0 N 
_ OF QRPGSRC BPSRC 9 9 0 N 
_ ORDSTK QRPGSRC BPSRC 9 9 0 N 
_ RSTO QRPGSRC BPSRC 9 9 0 N 
_ RSTIR QRPGSRC BPSRC 9 9 0 N 
_ STROE QCLPSRC BPSRC 9 9 0 N 
Bottom 
F3=Exit F12=Cancel F17=Top F18=Bottom 
ca S) 


Figure 84. Display Propagation-Trace Entry 


When you select any program and press Enter, the propagation-trace entry for 
the selected program appears, as shown in Figure 85 on page 91. 
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Source name : CINS Page 01 
I/O Area Field Date Field 

--->ORHDLY ORHDLY ORHDLY 

Displ: 1 Pos: 1, -¥ 
--->ORHDTA ORHDTA ORHDTA 

Displ: 1 Pos: 1 Y¥Y 
--->UDATE UDATE UDATE 

Displ: 1 Pos: de We 

Bottom 

F3=Exit F4=Expand input/Display entry F5=Initial list 
F12=Cancel F10=Statement list F15=Display only incongruences 


a 


Figure 85. Propagation Trace for Selected Entry 


If you select option T on the Work with Programs list display, as shown in Figure 
80 on page 87, you get the same result. 


5.6.3 Most Common Problems 


This section provides a list of some problems that can occur during propagation 
analysis: 


¢ When a field is found where the year is defined both on the right and on the 
left, you must verify the origin and probably define the field as a multi-format 
field. For more information, refer to Section 5.5.6, “Most Common Problems” 
on page 84. 


¢ When areas in a program are found that receive both date fields and non-date 
fields. This situation occurs for the following reasons: 


— Insufficient or incorrect seeding 


A year sensitive field in the database, that has not been seeded, has been 
related by the propagation analysis to a field that has either been defined 
as a seed or that has been reached by propagation. 


In this case, define the field as a date, delete the propagation analysis, and 
run it again. 


— The program uses the same area to contain different types of information. 


A double seed definition is recommended. Use the expansion type option 
with a value of 1 (not to expand), and the propagation type option with a 
value of 2 (upon confirmation) (see the Create New Date-Field Entry 
display in Figure 64 on page 75). Any subsequent uncertainty on a field 
that should receive the infection through the propagation analysis is 
highlighted by the function check requested information with messages, 
such aS Field related with a not propagated field.... 


¢ When dynamic program calls are found (name of the program being called is a 
variable), then you must define the real name of the called program for each 
occurrence. Select option 11 (Work with dynamic calls) in theBYPASS2000 
Memory-Level Analysis menu shown in Figure 53 on page 68. 


¢ When arithmetic operations using years are found in calculation, you must 
verify in the source program the correct logic of the highlighted operations and 
probably assign, as a seed, any variable not recognized as a date. 
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¢ If the propagation analysis does not terminate normally, that is, the maximum 
number of iterations is exceeded, you must perform the following tasks: 


1. Define as seeds the I/O areas suggested by the function Check requested 
information function when messages, such aS Propagation tree too deep or 
Propagation tree too big, are found in the conversion log. 


2. Delete the results of the propagation analysis. Select option 42 on the 
BYPASS2000 Propagation-Level Analysis menu shown in Figure 77 on 
page 86. 


3. Perform the propagation analysis again. 


5.7 Step 6. Conversion 
This is the final step in the BYPASS2000 process of your application. 


Based on the results of the propagation analysis, BYPASS2000 creates source 
members in your new libraries. These source members are modifications of your 
physical file definitions (DDS), CPYs. CLP, RPG, CBL, SQLRPG, and SQLCBL 
input source members (the ones in your old libraries). 


All the seeded dates and all the year-sensitive fields found by the propagation 
analysis are expanded from a two-digit year value to a four-digit year value, 
except those belonging to displays or to printer files. You can optionally expand 
display, printer, or logical file fields (more information is available in Section 
5.5.4.1, “Expanding MAP/PRT Fields” on page 82). 


Regarding display and printer files, BY PASS2000 adds to the converted source 
programs instructions for managing the two-digit year fields on the basis of the 
sliding window concept (see Section 5.5.4.2, “Century Window Routine” on page 
82). 


BYPASS2000 clearly identifies all the modifications made to the source members 
by means of markers put in the first positions of the statement being added, 
changed, or replaced (see Appendix C, “BYPASS2000 Markers” on page 165). 
BYPASS2000 also identifies the following items: 


e Any requests to manually verify and solve any logical incongruences (as is the 
case of an area used both for date and non-date related data) 


¢ Any instructions that must be verified to ensure they are correct 

e Any instructions for which automatic handling is not possible 
To begin conversion after the propagation analysis is complete, perform these 
steps: 


1. Select option 6 (Application conversion) on the BYPASS2000 Main Menu 
shown in Figure 50 on page 66. 


The BYPASS2000 Application Conversion menu is shown in Figure 86 on 
page 93. 
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BP4SCNV BYPASS2000 Application Conversion 
System: $1031GKM 
Select one of the following: 


. Work with database information 

. Convert DDS sources 

. Work with COPY sources 

. Convert COPY sources 

. Work with programs 

. Convert program sources 

Convert DDS,COPY, and program sources 
. Convert logical files 

. Work with new dictionary names 

. Work with files 


COMDNAUHFWNE 


BR 


12. Create migration programs 
13. Create migration-dispatcher program 


More... 
Selection or command 
— 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 
Ne By, 


Figure 86. BYPASS2000 Application Conversion Menu 


2. Take the menu options in the order that they are listed on the menu (that is, 
Convert DDS first, then CPYs, then programs and so on). 


3. Wait for each conversion to complete before you continue. 


Use the batch options (Convert...) the first time you run the conversion 
(options 2, 4 and 6 or only option 7). Afterwards, you can use the interactive 
options (1, 3, and 5). Interactive options allow you to select one or more 
members you want to convert from a list. Interactive options (Work with...) 
should be used when you repeat the steps shown in Figure 86. 


4. Always select options 22 and 23 (Display conversion log and Check requested 
information), shown in Figure 87 on page 94, at the end of each conversion 
option. 


There can be problems even if the conversion flags are all set to "9". If there are 
any, resolve them before continuing. 


5.7.1 Post Conversion Utility Programs 


After you finish converting all your sources and have compiling all your files, you 
can create different kinds of utility programs as shown in Figure 86. If you scroll 
down, you can see options to create two more utility programs as shown in Figure 
87 on page 94. 
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~< 
BP4SCNV BYPASS2000 Application Conversion 


System: S1031GKM 
Select one of the following: 


15. Create test-migration programs 
16. Create test-migration-dispatcher program 


18. Create DIM programs 
19. Create DIM dispatcher program 


22. Display conversion log 
23. Acknowledge requested information 


70. Work with submitted jobs 
71. Work with all spooled files 


Bottom 
Selection or command 
==> 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 


XM yy 


Figure 87. BYPASS2000 Database Conversion Menu 


Select these options after the source members conversion is completed and you 
are sure you do not have to repeat any of the BYPASS2000 process steps. 


The options on this menu are used to create different types of programs. These 
programs are useful tools for tasks subsequent to the conversion process. 


They are briefly explained here: 


¢ Migration programs (MGR) — Convert database files to the expanded format 
from two-digit year fields to four-digit year fields. The two digits added for the 
century are established, as explained in Section 5.7.1.1, “Add Century 
Routine” on page 94. 


¢ Migration-dispatcher programs — CL programs that run the migration 
programs. 

¢ Test migration programs (TSR) — Perform a time shift of the database 
year-sensitive fields to allow you to simulate tests in the future. You can test 
your application as if you were at the end of the century or at the beginning of 
the new century. 


¢ Test migration-dispatcher programs — CL programs that run the test 
migration programs. 


¢ DIM programs — Data integrity verification modules that can be used as 
trigger programs that logically check the validity of date fields after 
addition/modification of records in a file. 


Refer to BYPASS2000 User's Guide, SC09-2591, for more details. 
5.7.1.1 Add Century Routine 


Year fields (or year portion of a field) are expanded from two digits to four digits. 
The century two digits are added according to the value for the Minimum YEAR 
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value for 20th century conversion environment parameter. This value is set in the 
Customize Conversion Parameters display, as shown in Figure 47 on page 64. 


For example, if the parameter value is set to 50, the century added to all two-digit 
years that contain any value between 51 and 99 is 19. For years between 00 and 
50, the century used is 20. 


5.8 Step 7. Compilation 


After you have completed the conversion process, you must compile your 
programs from your new libraries into your test libraries. Ensure all file and 
program objects are created before proceeding to test your application. 


5.9 Step 8. Test 


Test your application to be sure that all date related functions are Year 2000 
ready. 


You may use the test migration programs that BYPASS2000 lets you create 
(more information is available in Section 5.7, “Step 6. Conversion” on page 92). 


r—— Important 


You are responsible for ensuring that your applications are Year 2000 ready. 
Using BYPASS2000 does not ensure that all the Year 2000 related concerns in 
your applications have been 100% resolved. The only way to be sure that your 
applications and data are ready for working with Year 2000 and beyond is 
through a well-planned test of them. 
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Chapter 6. BYPASS2000 Tips and Techniques 


This chapter describes the process details for BYPASS2000 and offers some 
helpful hints to overcome common problems. 


6.1 Setup 


By taking the time to set up BYPASS200, you can reduce the amount of time it 
takes to convert you applications. 


6.1.1 Default Conversion Style 
Before you begin BYPASS2000, you must create a BYPASS2000 environment. 
Creating a default environment allows BYPASS2000 to create several different 
libraries that you must populate. After BYPASS2000 generates these libraries, 
you must manually copy your sources, along with your file objects, to the 
BYPASS2000 created libraries. The following series of displays show you a 
step-by-step process to create a default environment. 


~ 
BP4AMBI BYPASS2000 Environment Setup 


System: S1031GKM 
Select one of the following: 


1. Create conversion environment 
3. Customize conversion parameters 


6. Work with object and source libraries 
7. Work with relationships between objects and sources 
8. Customize environment COPYs 
9. Work with field type 

0. Work with additional parameters 

11. Work with system fields 


13. Apply BYPASS2000 software key 
14. Create DDS from COPY 
15. Create COPY from File Object 


More... 
Selection or command 
——— 4 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 
(C) COPYRIGHT HAL S.p.A. 1994, 1998. 


Ne J 


Figure 88. BYPASS2000 Environment Setup 


Complete the following series of steps: 
1. Select option 1 (Create conversion environment) as shown in Figure 88. 


2. Type your environment name and specify *YES for Create default environment 
value as shown in Figure 89 on page 98. 


© Copyright IBM Corp. 1997, 1999 97 


98 


= 
oy 


Create Conversion Environment (BPCRTLIB) 
Type choices, press Enter. 


Conversion identifier ..... BP02 Name 
Create default environment... *YES *YES, *NO 


Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


<a y 
Figure 89. Create Conversion Environment (BPCRTLIB) 


A list of libraries that BYPASS2000 creates appears as shown in Figure 90. 


% 
7 


Create Conversion Environment (BPCRILIBO) 


Type choices, press Enter. 


Create default environment . > *YES *YES, *NO 
Original source library > BPO20LD Name, *NONE 
Converted source library . > BPO2Y2K Name, *NONE 
Converted object library . > BPO20BJI Name, *NONE 
Conversion-database library > BPO2DB Name 
User-database library > BPO2DAT Name, *NONE 
User-SQL-database library > *NONE Name, *NONE 
Run am baths, 2 ds Se ae See eS *YES *YES, *NO 

Bottom 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 


F24=More keys 
x SJ 


Figure 90. Create Conversion Environment (BPCRTLIBO) 


Table 10 provides a description of the libraries generated by BYPASS2000. 
Table 10. BYPASS2000 Generated Libraries 


Library Names Description 


xxxxOLD This library should contain the sources of your files, Copybooks 
and programs. 


XXXXY2K This library will contain the newly converted sources of your 
files, Copybooks and programs. 


xxxxOBJ This library should contain the new converted objects of your 
files. 
xxxxDB This library used by BYPASS2000, contains information about 


your environment. 


XxxxDAT This library should contain the old objects of your files (“FILE 
objects, with attribute PF, LF, DSPF and PRTF). 


3. Press Enter to continue. A detailed list of languages and source types is 
shown in Figure 91 on page 99. 
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Work with Object and Source Libraries 
Type choices, press Enter. Position to . 
3=Copy 4=Delete 5=Display *=Reset old information 
Old Src Lib Old Sre File Old Object Lib 
Opt Type Src SEU-Type Status New Src Lib New Src File New Object Lib 
_ *FILE DAT PF *NONE: *NONE: BPO2DAT 
*NONE: *NONE: BPO2Y2K 
_ CBL CPY CBL BPO20LD QLBLSRC *NONE 
BPO2Y2K QLBLSRC *NONE: 
_ cBL CPY CBL38 BPO2OLD QLBLSRC *NONE 
BPO2Y2K QLBLSRC *NONE: 
—_ CBL CPY UNS36 BPO20LD QS36SRC *NONE: 
BPO2Y2K QS36SRC *NONE: 
_ CBL POM CBL BPO20LD QCBLSRC *NONE 
BPO2Y2K QCBLSRC *NONE: 
./ (GBs PGM CBL36 BPO20LD QS36SRC *NONE: 
BPO2Y2K QS36SRC *NONE: 
More... 
F3=Exit F5=Refresh F6é=Create Enter=Validate F9=Confirm 
F12=Cancel F17=Top F18=Bottom F20=One/Two Rows 


XQ A 


Figure 91. Work with Object and Source Libraries 


By selecting a default environment, BYPASS2000 has generated libraries and 
files for you to populate. 


6.2 Analysis 


Analysis may be one of the easier stages when using BYPASS2000. However, it 
is very crucial that you do it properly. Analysis of programs and files allows 
BYPASS2000 to gather all the necessary information to complete the project 
correctly. See Section 5.4, “Step 3. Memory-Level Analysis” on page 67, for more 
information. 


r—— Important 


When changing the source of any programs, you must run analysis again. 
Failure to do so yields improper results in the later stages. If the source of a file 
is changed, you must analyze that file again and then select option 2 in the 
main menu to reload database information. 


6.3 Date Field Assignment 


Date field assignment is also known as seeding. The following sections describe 
seeding and how it is used. 


6.3.1 Multiple Format Files 


If you have a file with different record formats and each record format is defined 
as a redefine of one of the previous ones (with the date field in different positions 
in each), it is necessary to define each record format. Each record format ina 
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multi-format file must have its own record type. The application database is the 
starting point for the propagation. A seeding error can occur due to the different 
positions of the date fields in each record format (because they are considered as 
only one record format). Furthermore, if you assign the same record type to 
different record formats, this can result in data that is not valid, error messages, 
or even the loss of data during migration. 


Obviously, these problems occur only if at least one of the record formats 
contains year-sensitive fields. If not, you can ignore the problem. 


Assume we have assigned a file to more than one logical area (multi-format file). 
If one of these layouts contains a date field, this information does not have to be 
propagated to the fields that are in the same position for different layouts. After 
all, during the generation of the migration routine for the files, it is necessary to 
know which layouts require century information and which do not. 


To resolve this, a record type assignment function is provided to assign a different 
record type value to each record format for the file. This allows BYPASS2000 to 

determine which of the layouts require century information. This is shown in the 

example in Figure 92 on page 101. 
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0001.00 
0002.00 
0003.00 
0004.00 
0005.00 
0006.00 
0007.00 
0008.00 
0009.00 
0010.00 
0011.00 
0012.00 
0013.00 
0014.00 
-00 
-00 
-00 
-00 
0019.00 
0020.00 
0021.00 
0022.00 
0023.00 
0024.00 
0025.00 
0026.00 
0027.00 
0028.00 
0029.00 
0030.00 
0031.00 
0032.00 
0033.00 
0034.00 
0035.00 
0036.00 
0037.00 
0038.00 
0039.00 
0040.00 
0041.00 
0042.00 
0043.00 
0044.00 
0045.00 
0046.00 


H 


J 


KKK KKK KKK KKK KK KKK KKK KKK KKK KR KKK KKK KKK KEKE KEKE KEKE KEK KEKE KEKE KKK KEKEKEKKKEKKKEK 


* Verify file multiformat (S36) 
KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KEKE KEKE KEKE KEKE KEK KKK KEKKKKKEKEKEK 


FMI 


qgqaQgagagaaNn qgqaQqgagaaNn H HH 


Qe AAA 


Li 


TOO2 


TOO2 


N99 


N98 


IF 


NS 


NS 


NS 


NS 


F 


DS 


"ABC 


CM 


4ATI 1 


2 C2 3 

2 CI 3 
CHAINMLT002 
DO 


MOVE DTYMD1 
MOVE DTYMD2 
MOVE DTYMD2 
ENDDO 


CHAINMLT002 
DO 
MOVELDTYEAR 
MOVE ORCDO1 
MOVE DTYEAR 
ENDDO 


CHAINMLT002 
DO 

MOVE DTYMD2 
MOVE DTDMY1 
ENDDO 


SETON 


DISK 


¢3 


co 


DTYMD2 
NSDOO06 
DSO006 


NSDOOA 
NSDOOA 
DSO008 


CHART 
CHARTA 


Figure 92. Assign a Different Record Type Value to Each Record Format 


This example consist of the following elements: 
¢ An RPG III program called DOC_MULTF1 (described above) 


¢ A multi-format file named MLT002 


The file MLT002 has the following record types: 


¢ The first has ABC in the first three positions 


¢ The second has 123 in the first three positions 


¢ The third has MIO in the first three positions 


1OODTYMD1 
140DTYMD2 


60DTYEAR 
1000RCDO1 
140DTYMD2 


1OODTDMY1 
180DTYMD2 


60DS006 
140DS008 


99 


60 


98 


60 


97 


LR 
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The following six date fields are in the file: 
¢ The following two fields are in the first format: 


— DTYMD1 data type 002, year length 2 (to be expanded ) 
— DTYMD2 data type 002, year length 2 (to be expanded) 


¢ The following two fields are in the second format: 


— DTYEAR data type 001 year length 4 
— DTYMD2 data type 002 year length 2 (to be expanded) 


¢ The following two fields are in the third format: 
— DTDMY1 data type 003 year length 2 (to be expanded) 
— DTYMD2 data type 002 year length 2 (to be expanded) 
Follow these steps to handle multiple-record format files in BYPASS2000: 


1. To analyze the file, select option 3 (Memory-level analysis) in the 
BYPASS2000 main menu. 


2. Select option 1(Work with database information). 


3. Select option A (Analyze) as shown in Figure 93. 


Work with Database Information 
Position to... : 
Type choices, press Enter. 
2=Change 4=Delete 5=Display 8=Hold 9=Release 
T=Input source O=Output source V=View log E=Reset cnv. flag K=Reset chk 
A=Analyze D=Delete analysis C=Convert F=Override files J=Dynamic call 


Opt DDS Name Ana Cnv Gen Log Req Chk 
_ ITALFIL2 9 9 
_ KNDSTP 9 9 
_ KNDSTP1 9 9 
_ KONG1 9 9 
_ MP.EFL 9 9 
_ MP.REF 9 9 
_ MF.SCX 9 9 
MFREF 9 9 
_ MLTOO1 9 9 
A MLTO02 9 9 
MULTT1 9 9 
_ MULOO1 9 9 
_ MULOO1A 9 9 
Bottom 
F3=Exit F4=Prompt F5=Refresh Fe=Create F10=Reset flag F1l=Toggle F13=Repeat 
F12=Cancel F15=Include new member F21=Command entry F24=More keys 
X ) 


Figure 93. Work with Database Information 
4. To find the multiple record format file, select option 4 (Date-field assignment) 
in the main menu. 


5. Select option 1 (Assign date field for I/O area related to file) as shown in 
Figure 94 on page 103. 
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Assign Date Field 
I/O-Area List 
Position to . 
Type choices, press Enter. 
1=Select 6=Print assigned date fields A-Assign from dict. to database 
2=Set/Reset file as dictionary ---- File attributes ----- 
Opt Src. Name I/O-Area Name Seq A Type Name D 
_ KONG1 *RECKO1 000 Y PF KONG1 
_ MPF.EFL *MFREFR 000 Y PF MF. EFL 
_ MPF.REF *MF .REF 000 PF MF.REF 
_ MF.SCX *MF SCX 000 PF MF. SCX 
1 MLTOO2 *MLTREL 000 PF MLTOO2 
— MULOO1 *RMULOL 000 Y PF MULOO1 
_ MULOOI1C MULOO1A 000 Y PF MULOO1A 
_ MULOO02 *RMULO2 000 Y PF MULO02 
— MULOO2C MULO02A 000 Y PF MULO02A 
_ PERCSPF *PERCSR 000 Y PF PERCSPF 
_ PERSOPF *PERSOR 000 Y PF PERSOPF 
2) aE *PFMODR2 000 Y PF PF 
_ PFLOOL *RECPF 000 Y PF PFLOOL aS 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom F21=Print assigned date fields of listed sources 
XX S 


Figure 94. Assigning Date Fields - Part 1 


If you select option 1, you see only the key field and a unique field which 
contains all the data. 


a Assign Date Field - Field list >) 
DDS name MLTO02 I/O area *MLTREL Seq 0 
Search field name: Position to displ: 


Type choices, press Enter. 
D=Assign date field 1-7=Quick-assign date field W=Work with assigned date 


*=Annul assignment R=Reusable field V=View all attributes 

Data Field F F Field Fld Field Int. D 

Opt Type Name R Occ. G Displ Type Len. Dec. A 
= O01 MLTRE1 Y 1 CHAR 50 00 
= 02 NKEY 1 CHAR 4 00 
02 FILLO1L 5 CHAR 46 00 


F3=Exit F5=Refresh F11l=View colhdg F14=Set HI rules F15=View only highlight 
F17=Top F18=Bottom F19=Field type F20=Default type F21=PF contents F12=Canc. 


Ne y 


Figure 95. Assigning Date Fields - Part 2 


6. Create a COPY that contains all the formats of the file, as well as every field. 
BYPASS2000 uses the COPY only in the migration phase. 


Using the example program shown in Figure 92 on page 101, we can create a 
COPY source COPY_MULTF1 using the following specification: 
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0001.00 IMLTO02 NS 1 CA 2 CG 3 CC 


0002.00 I 1 4 KEY 
0003.00 I 5 100DTYMD1 
0004.00 I P 11 140DTYMD2 
0005.00 I 15 50 FLNEWL 
0006.00 * 

0007.00 I NS 1 Cl 2 C2 3 C3 

0008.00 I 1 4 KEY 
0009.00 I 5 60DTYEAR 
0010.00 I 7  1000RCDO1 
0011.00 I P 11 140DTYMD2 
0012.00 I 15 50 FLNEWL 
0013.00 * 

0014.00 I NS 1 C™ 2 CI 3 CO 

0015.00 I 1 4 KEY 
0016.00 I 5 100DIDMY1 
0017.00 I P 15 180DTYMD2 
0018.00 I 19 50 FLNEW2 


7. To analyze it, select option 3 (Memory-level analysis) in the main menu. 


8. Select option 3 (Work with COPY sources). The following display appears. 


(— ; > 
Work with COPYs 


Position to . 
Type choices, press Enter. 
2=Change 4=Delete 5=Display 8=Hold 9=Release 
T=Input source O=Output source V=View log E=Reset cnv. flag K=Reset ch 
A=Analyze D=Delete analysis C=Convert F=Override files J=Dynamic cal 


Opt COPY Name Type Ana Cnv Gen Log Req Chk 
_ ARTLSC RPG 9 0 
_ ARTLSR RPG 9 0 
_ ARTLXGG RPG 9 0 
_ ARTLXC1 RPG 9 0 
_ ARTLYCG RPG 9 0 
_ ARTLSR RPG 9 0 
_ ARTLXCG RPG S 0 
_ ARTLYCL RPG 9 0 
ICPY RPG 9 0 
CDISIN1 RPG 9 0 
A CPY_MULTF1 RPG 9 0 
CPYFDUE RPG 9 0 
_  CPYMULO1 RPG 9 0 
_  CPYMULO2 RPG 9 0 
More... 
F3=Exit F4=Prompt F5=Refresh Fé=Create F10=Reset flag F11l=Toggle F13=Repeat 
F12=Cancel F15=Include new member F21=Command entry F24=More keys 
S / 


Figure 96. Working with Copies 


-——— Important 


After you have created your COPY source, you should see it in the list in Figure 
96. If you do not see it in the list, press F15. By pressing F15, you will include 
any new members that were not present before. 
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9. To link the COPY to the physical file, select option 3 (Assign I/O area to 
related file) in the Date-Field Assignment menu. 


10.Select option 2 (Change), as shown in Figure 97. 


i Assign I/O Area to Related File ) 
File to assign. : Type/Name, F4 (List) 
Position to . 
Type choices, press Enter. 
1=Select 2=Change 5=Display 
Opt Src Name I/O-Area Name File Type Filename 
CEMASAPF *REGCEMASA PF CEMASAPF 

_ CPY_MULTF MLTOO1 PF MLTOOL 

2 CPY_MULIF1 MLTO02 

_ CPYFDUE RECFUNO PF FDUE 

_  CPYMULO1 MULTT1 PF MULTT1 

_  CPYRMF MSFILEMF PF FILEMF 

_  CPYRMFN MSFILEMF PF FILEMFN 

_ CURRENCY * TENDER PF CURRENCY 

_ Cust *CUSTOMER PF CUST 

_ CUST.1 *CUSOTMER PF CUST 1 

_  C€77380C INISTL PF INIST1 

More... 

F3=Exit F4=File list F5=Refresh F12=Cancel 

F17=Top F18=Bottom 

X . 


Figure 97. Assign I/O Area to Related File (Part 1 of 4) 


11.Press Enter to continue. As shown in Figure 98, enter the name of the file you 
want to associate with the member. 


(— =x 
Change entry 
Type choices, press Enter. 
Source name. ....... . : CPY _MULTF1 
I/O-area name. ....... : MLTOO2 
File type..........: PF Type, F4 (List) 
Filename ........ ... =: MLTO02 Name, F4 (List) 
F3=Exit F4=File list F5=Refresh F12=Cancel 


Figure 98. Assign I/O Area to Related File (Part 2 of 4) 


12.You must disassociate the file from itself. Select option 2 (Change) for the 
MLT002 file as shown in Figure 99 on page 106. 
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File to assign . 


Type choices, press Enter. 


1=Select 2=Change 5=Display 


Assign I/O Area to Related File 


Type/Name, F4 (List) 


Position to . 


Opt Src Name 


F17=Top 


\S 


I/O-Area Name 


MINEIROO1 COPY-AUT-AT 
_  MLTOO1L *MLTREC 
2 MLTO02 *MLTRE1 
— MULITL *MULTT1 
—  MULOO1 *RMULOL 
_  MULOO1A *RMULO1A 
_ MuULOOIC MULOO1A 
_ MULOO2 *RMULO2 
_ MULOO2A *RMULO2A 
_  MULO02C MULO02A 
PERCSPF' *PERCSR 
F3=Exit F4=File list F5=Refresh 


F18=Botton 


File Type Filename 
PF MLT002 
PF MULOOL 
PF MULOO1A 
PF MULO02 
PF MULO02A 
PF PERCSPF 
F12=Cancel 


More... 


Figure 99. Assign I/O Area to Related File (Part 3 of 4) 


13.You must delete the entry for the file type and filename, as shown in Figure 


100. 
Va 
Change entry 
Type choices, press Enter. 
Source name . MLTOO02 
I/O-area name . *MLTREL 
File type . Type, F4 (List) 
Filename Name, F4 (List) 
F3=Exit F4=File list F5=Refresh F12=Cancel 


Figure 100. Assign I/O Area to Related File (Part 4 of 4) 


Figure 101 on page 107 shows the result of this action. 
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Assign I/O Area to Related File 
File to assign . : Type/Name, F4 (List) 
Position to . 
Type choices, press Enter. 
1=Select 2=Change 5=Display 

Opt Src Name I/Area Name File Type Filename 
_ MINETROO1 COPY-AUT-AT 
_ MLTOO1 *MLITREC 
_ MLTOO2 *MLTREL 
— MULITL *MULTT1 
_ MULOO1 *RMULOL PF MULOOL 
_ MULOO1A *RMULO1A 
_ MULOO1C MULOO1A PF MULOO1A 
_ MULOO2 *RMULO2 PF MULO02 
_ MULOO2A *RMULO2A 
_ MULOO02C MULO02A PF MULO02A 
_ PERCSPF *PERCSR PF PERCSPF He 
F3=Exit F4=File list F5=Refresh F12=Cancel 
F17=Top F18=Bottom 

Ne yy 


Figure 101. File ls Now Associated with Copy 


14.Assign the record type to each format. Select option 4 (Assign record type to 
related I/O area) in the Date-Field Assignment menu. 


A line for each multiple format file is shown. In addition, the list of the different 
formats in each file is shown. In this example, there are three record formats 
shown for file MLT002. 


(— Assign Record Type to Related I/O Area ) 
File list 
Position to . 
Type choices, press Enter. 
1=Select 
Record Fmt Record Type Record Type 
Opt File Type Filename Number Position Length 
_ PF FILEMF 004 00001 03 
_ FF FILEMFN 003 00001 03 
_ FF INTSTG 002 00082 02 
_ FF INTSTP 002 00081 02 
_ PF INTST1 002 00081 02 
_ PF MLTOO1L 003 00001 03 
_ OPE MLTO02 003 00000 00 
_ FF MULTT1 003 00081 02 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Botton 
Net y 


Figure 102. Assign Record Type to Related I/O Area - File List 
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15.Select option 1 to assign date fields for a record format, as shown in Figure 
103. 


Assign Record Type to Related I/O Area 
File list 
Position to . 
Type choices, press Enter. 


1=Select 
Record Fmt Record Type Record Type 
Opt File Type Filename Number Position Length 

_ PF FILEMF 004 00001 03 

_ PF FILEMFN 003 00001 03 

_ PF INISTG 002 00082 02 

_ PF INISTP 002 00081 02 

_ PF INIST1L 002 00081 02 

_ PF MLTOOL 003 00001 03 

1 PF MLTOO2 003 00000 00 

_ PF MULTT1 003 00081 02 
F3=Exit F5=Refresh F12=Cancel 

F17=Top F18=Bottom 

X wy 


Figure 103. Assign Record Type to Related I/O Area - Select MLTO02 


The Assign Record Type to Related I/O Area display appears. 


( Assign Record Type to Related I/O Area *) 


I/O-area list 
File type/name: PF / FILEIN Position to ..: 
Record fmt nbr: 002 Record type position/length: 00001 / 01 


Press F3 to confirm your update. 


Copy Name T/O-Area Name Seq Record Type 
CPY_MULTF1 MLTO02 001 
CPY_MULTF1 MLTO02 002 
CPY_MULTF1 MLTO02 003 
Bottom 
F3=Exit with Confimm F17=Top F12=Cancel 
F5=Refresh F18=Bottom 


XN 


Figure 104. Assign Record Type to Related I/O Area 


16.In our example, each record type begins at position 1 and has a length of 3. 
Enter these values. 


The result is shown in Figure 105 on page 109. 
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( Assign Record Type to Related I/O Area >) 
I/O-area list 
File type/name: PF / FILEIN Position to . : 
Record fmt nbr: 002 Record type position/length: 00001 / 01 
Press F3 to confirm your update. 
Copy Name I/O-Area Name Seq Record Type 
CPY_MULTF1 MLT0O02 001 ABC 
CPY_MULTF1 MLTO02 002 MIO 
CPY_MULTF1 MLT0O02 003 123 
Bottom 
F3=Exit with Confimm F17=Top F12=Cancel 
F5=Refresh F18=Bottom 
SS J 
Figure 105. Assign Record Type to Related I/O Area - Insert Record Types 
17.Press F3 to confirm. This returns you to the previous display as shown in 
Figure 106. 
a . \ 
Assign Record Type to Related I/O Area 
File list 
Position to . 
Type choices, press Enter. 
1=Select 
Record Fmt Record Type Record Type 
Opt File Type Filename Number Position Length 
_ PF FILEMF 004 00001 03 
_ PF FILEMFN 003 00001 03 
_ PF INTSTG 002 00082 02 
_ PF INTSTP 002 00081 02 
_ PF INTST1L 002 00081 02 
_ PF MLTOOL 003 00001 03 
_ PF MLTO02 003 00001 03 
_ PF MULTT1 003 00081 02 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom 
Ne of 


Figure 106. Assign Record Type to Related I/O Area - Updated Record Information 


18.Select option 1 (Assign date field for I/O area related to file) in the Date-Field 
Assignment menu to seed the date fields of the COPY related to file. See 
Figure 107 on page 110. 
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Assign Date Field 
I/O-Area List 
Position to . 
Type choices, press Enter. 
1=Select 6=Print assigned date fields A=Assign from dict. to database 
2=Set/Reset file as dictionary ---- File attributes ----- 

Opt Src. Name I/O-Area Name Seq A Type Name D 
1 CPY_MULTF1 MLTO02 001 PF MLTO02 

_ CPY MULTF1 MLTO02 002 «PF  MLTo02 

_ CPY MULTF1 MLTO02 003 PF  MLTOO2 

_ CPYFDUE RECFUNO 000 PF FDUE 

_ CPYMULO1 MULTT1 001 Y PF MULTT1 

— CPYMULO1 MULTT1 002 Y PF MULTT1 

_ CPYMULO1 MULTT1 003 PF MULTT1 

_ CPYRMF MSFILEMF 001 Y PF FILEMF 

_ CPYRMF MSFILEMF 002 Y PF FILEMF 

_ CPYRMF MSFILEMF 003 Y PF FILEMF 

_ CPYRMF MSFILEMF 004 PF FILEMF 

_ CPYRMFN MSFILEMF 001 Y PF FILEMFN 

_ CPYRMFN MSFILEMF 002 PF FILEMFN + 
F3=Exit F5=Refresh F12=Cancel 

F17=Top F18=Bottom F21=Print assigned date fields of listed sources 

we J: 


Figure 107. Assign Date Field - Select with Option 1 


The seeding of the copy is necessary for the migration of the file. 


19.You must seed the date fields in the COPY because seedings performed in the 
file fields are not recognized from the association between file and programs. 
Select option 2 (Assign date field) and seed each COPY and program that 
uses the file. 


Alternatively, you can choose option 9 (Assign dates from files to program and 
COPY areas) to automatically seed all programs and copies that uses the file. 
See Figure 108 on page 111. 
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va 
BPSRCASS BYPASS2000 Date-Field Assignment 


Select one of the following: 


. Assign date field for I/O area related to file 

. Assign date field 

. Assign I/O area to related file 

. Assign record type to related I/O area 

. Work with migration utility programs 

. Print list of assigned date fields 

. Work with user-default date 

. Work with date fields not to expand or propagate 
. Assign dates from files to program and COPY areas 
. Work with dates in files 

. Import external field assignment (HSDATDFT) 

. Import external field assignment (HSDATDFN) 

. Load field assignment into HSDATDFN for export 

. Create interface from IBM SEARCH2000 repository 


ODI AHAWHFWNE 


PEPER 
WNHO 


a 
ww 


Selection or command 
===> 9 


System: 


~ 


S1031GK 


More. . 


F3=Exit F4=Prompt F9=Retrieve F12=Cancel 


XN 


Figure 108. BYPASS2000 Date-Field Assignment 


20.Press Enter. The display shown in Figure 109 appears. 


va 
Work with Files 


Position to . 
Type choices, press Enter. 
1=Select C=Create DDS 


Opt File Lib Typ 
MF.EF1 APAREXDAT PF 
MF. REF APAREXDAT PF 
F.SCX APAREXDAT PF 
MFREF APAREXDAT PF 
_ MUTOO1 APAREXDAT PF 
1 MLT002 APAREXDAT PF 
MULTT1 APAREXDAT PF 
MULO01 APAREXDAT PF 
MULOO1A APAREXDAT PF 
MULL002 APAREXDAT PF 
MUI 
MUI 
MUI 


L002A APAREXDAT PF 
LILF APAREXDAT iF 
L2LF APAREXDAT iF 


t F5=Refresh F12=Cancel F17=Top F18=Bottom F21=Command entry 


X 


Figure 109. Work with Files - Select MLT002 in Library APAREXDAT 


21.Select option 1. The display shown in Figure 110 on page 112 appears. 
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Work with Files 
Position to . 
Type choices, press Enter. 
Dm Ak, ae erg aertd satin, arvelig canloudiateeln de-tattn carte dat sa atean Stero, ascaryel ce le ar ol 5 bs Sub ne sala. b,cal ar hycalagte, Tabane, abiaarcae wile teed ts 
: Work with Physical File MLT0O02 
: Type choices, press Enter. Position to. 
Opt : 1=Select A=Assign date field I=Input source V=View fields 


_ : Opt Program LF I/O-Area Name Seq Size 
Name Name 

7 _ DOC MULTF1 MLITOO2 003 00050 

1 — DOC _MULTF1 MLITOO2 002 00050 
DOC_MULTF1 MLTO02 001 00050 


: F3=Exit F4=Prompt F5=Refresh F12=Cancel F17=Top F18=Bottom 


F3=Exit F5=Refresh F12=Cancel F17=Top F18=Bottom F21=Command entry 


Ne y 
Figure 110. Work with Physical File MLT002 


22.Type 1 next the first I/O Area Name (Seq. 003) and press Enter. 


(— ; : > 
Work with Files 


Position to . 
Type choices, press Enter. 


28 Work with Program DOC _MULTF1 
Opt : : Type choices, press Enter. Position to. 


e : 1=Select 

_ : e 

= : Opt Srcname Type I/O-Area Name Seq 

_ _ CRY MULTFL CPY MLTOO2 001 : 50 

1 _ CPY MULTFL CPY MLTOO2 002 : 50 
CPY_MULTF1 CPY MLTO02 003 £050 


: Bottom : ttom : 
: F3=sExit F5=Refresh F12=Cancel F17=Top F18=Bottom : 


Seas Uaeey yon dray oat oh ces slate etang be Shak Sour ok Souvahegs horse Marayeh age rok eh apsher Sas te e peers anaes oapenete, wits SOLO eas 
F3=Exit F5=Refresh F12=Cancel F17=Top F18=Bottom F21=Command entry 


\ S 
Figure 111. Work with Program DOC_MULTF1 


23.Associate the corresponding I/O Area in the associated copy. In this example, 
select the third (Seq=003) as shown in Figure 112 on page 113. 


The seeding done to the I/O Area in CPY_MULTF1 is assigned, as well as to 
the selected I/O Area in program DOC_MULTF1. 
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Work with Files 
Position to . 
Type choices, press Enter. 


Ak Ses Yak Bas ae G4 dele debe os hdd ob eb ewd sages Sebo Se Sa Sse hee Se ees eee 
sa%e Work with Program DOC _MULTF1 
Opt : : Type choices, press Enter. Position to. 
= : 1-Select 
= : e 
- : Opt Srcname Type I/O-Area Name Seq : 
_ : :  _ CPY_MULTF1 CPY MLTO002 001 : 50 
A. gg CPY MULTF1 CPY MLT0O02 002 : 50 


1 CPY MULIF1 CPY MLTO02 003 : 50 


7 Bottom : ttom : 
: F3=Exit F5=Refresh F12=Cancel F17=Top F18=Botton 


F3=Exit F5=Refresh F12=Cancel F17=Top F18=Bottom F21=Conmand entry 


X w 
Figure 112. Work with Program DOC_MULTF1 - Option 1=Select 


24.Press Enter. Then press F12 to continue. A message appears, as shown in 
Figure 113. 


Work with Files 
Position to . 
Type choices, press Enter. 
: Work with Physical File MLTO02 
: Type choices, press Enter. Position to. 
Opt : 1=Select A=Assign date field I=Input source V=View fields 


_ : Opt Program LF 1/O-Area Name Seq Size 

ee Name Name 

is 1 DOC MULTF1 MLTO02 003 00050 

1 _ DOC _MULTF1 MLTO02 002 00050 
DOC_MULTF1 MLTO02 001 00050 


: F3=Exit F4=Prompt F5=Refresh F12=Cancel F17=Top F18=Bottom 
Seedings and data locks applied successfully 


F3=Exit F5=Refresh F12=Cancel F17=Top F18=Bottom F21=Conmand entry 
X of 
Figure 113. Work with Physical File MLT002 - Repeat for Other I/O-Area Name 


25.Repeat the same instructions to assign the second I/O Area (Seq. 002) and 
first 1/O Area (Seq 001). 


26.Verify that BYPASS2000 has seeded the programs properly. Select option 2 
(Assign date field) in the Date-Field Assignment menu as shown in Figure 108 
on page 111. 
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( Assign Date Field - Program I/O-Area List oe 
Pom name DOC MULTF1 
Position to. . 
Type choices, press Enter. 
1=Select 2=Select with lock *=Annul all assignments and locks 
6=Print assigned dates -Assigned- 
Opt I/O-Area Name Seq Date Lock 
_ CHART 000 
_ CHARTA 000 
__DS-DOC_MULTF1-00001 000 
_ DIDMY1 000 
_ DTYEAR 000 
_ DTYMD1 000 
_ DTYMD2 000 
_ MUTO02 001 Y Y¥ 
_ MUTO02 002 Y yY¥ 
_ MUTO02 003 Y yY 
_ NSDOOA 000 
_ NspbD006 000 
_ ORCDO1 000 
F3=Exit F5=Refresh F12=Cancel 
F17=Top F18=Bottom F21=Print assigned date fields of listed sources 
\ S 


Figure 114. Assign Date Field - Program |/O-Area List 
27.From this point, propagate and convert as usual. 


If the record type for each format is not sequential or correctly defined, the 
migration routine cannot be built. However, you can define your own record type, 
build the migration routine, and then modify it, if required. You must also be 
aware that the propagation will fail if there are multi-format files with unassigned 
record types. 


6.3.2 General Seeding 


114 


After the memory-level analysis is complete, BYPASS2000 requires the following 
information. This can be provided manually or from an impact analysis tool. Refer 
to Chapter 3, “SEARCH2000 Impact Analysis Tool” on page 29, for more 
information. 


¢ All the year-sensitive fields identified from the database 
¢ The format of these fields (for example, YYMMDD, DDMMYY, and so on) 
¢ Whether the fields require expansion 


After all this information is provided, there are two distinct groups for the 
variables: 
¢ Year-sensitive fields and their formats 
¢ Non-year sensitive fields - these are fields that have not been seeded but they 
belong to an I/O area to which year-sensitive fields are related. 


Each field in the database must be identified as either year or non-year sensitive. 
If a field is not seeded, BYPASS2000 assumes that this field is not a date. See 
the following example: 
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A R DICT TEXT ('Data Definition. ') 

A DTEY 2 0 COLHDG('Year LEN 2 Packed. ') 
A DTEYMD 6 0 COLHDG('YMD LEN 6 Packed. ') 
A DTEDMY 6s 0 COLHDG('DMY LEN 6 Zoned.') 
A CDCLI 6 COLHDG ('Client') 


By defining DTEY, DTEYMD, and DTEDMY as year-sensitive fields in this file, 
this implies that CDCLI is not year-sensitive. Any fields that are used in the 
programs, but not previously identified in the database, are discovered during 
propagation. 


Seeding is the most important stage for the following reasons: 


¢ The seeded variables are propagated to find any relationships between them 
and other variables. 


e An incongruence occurs if a relationship exists between a year-sensitive and a 
non-year sensitive field. 


¢ An undefined year-sensitive variable results in the propagation being 
incorrect. 


The overall conversion process is greatly improved by investing sufficient time 
and resource into the seeding phase. 


Refer to Chapter 5, “BYPASS2000 Tutorial” on page 57, for more information 
about seeding the Century Flag. 


6.3.3 Assigning I/O Area to Related File 


As discussed earlier, BYPASS2000 looks at the database to find year-sensitive 
fields. Most database files on the AS/400 system have an external description 
(DDS or DDL). However, if your database file is not externally described, a 
definition of the file (written in the same language as the programs you are going 
to convert) is required. Usually this definition already exists for the files and 
databases in the form of a copybook. 


If you have a file that contains year-sensitive fields in different positions, you can 
identify the date fields using their relative positions (if you have this information). 
However, it is simpler to relate the layout of the file and identify the date fields 
within it. BYPASS2000 does not allow you to assign date fields for a file if the file 
does not have external definitions. To convey the detailed layout of the file, use 
the relevant options in the Field Assignment (seeding) menu or use a copybook 
source member for the I/O area. 


6.3.3.1 Externalizing Internally Described Files 
The main programming concepts are record format and layout. 


Record Format 
A file can have different kinds of records (for example, header record, detail 
record, and so on). We define each of these as a record format. 
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Layout 

This is the definition of the fields in a record format. There can be different 
layouts for the same record (both in the copybook/include and inside the 
program). 


If there is no external description for your files, there must be a copybook for each 
file being seeded. If you need to create one, the layout must be copied from the 
program in which the layout is defined. The copied layout must not be removed 
from the program because BYPASS2000 updates the existing program layout, as 
well as the newly created copybook. 


BYPASS2000 works with the displacement of the seeded field rather than the 
name. Therefore, the dates are always in the same position, even if the field 
layout is different. Therefore, there must be enough information to uniquely 
identify the displacements of all seeded variables for each record format (see 
Section 6.3.1, “Multiple Format Files” on page 99, for more information on 
multiple format files). 


After the copies in QCPYSRC are created and analyzed, they must be associated 
with the I/O area for the related file. If there are any old relationships, they must 
be removed. The copies can then be seeded. 


6.3.4 Pre-Assigned Dates 


Seeding provides the majority of information for the propagation phase. The 
propagation input is called the set of preloaded dates. It is composed of the 
following dates: 


¢ Seeded dates (dates defined from the database) 
¢ System dates: UDATE/UYEAR (two-digit), *YEAR/*DATE (four-digit) 
¢ Dates defined in copybooks 


Assume you have a copybook that is not seeded, but it contains a 
year-sensitive field that has been discovered by the propagation. All other 
programs using this copybook have this year-sensitive field identified as part 
of their own set of preloaded dates. 


Dates loaded by inter-program communication 


Any year-sensitive fields found in the parameter list for the program being 
called belong to the set of preloaded dates for the calling program. 


Dates loaded by inter-file propagation 


If a file is used in a program with an area that is different from the one seeded 
for the file, the area used in the program contains the same year-sensitive 
field for the seeded area. 
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6.3.5 Seeding Multiple Date Formats 
Sometimes, a field can change its format type from database (YMD) to display 
(DMY). For this purpose, a work field is defined in the program, as shown in the 
following example: 


I DS 

Ag 1 60YDTE 
Cc MOVE YDTE WRKFL 60 

c MOVELWRKFL YY 20 

Cc MOVE WRKFL DD 20 

Cc MOVELDD WRKFL 

Cc MOVE YY WRKFL 


If YDTE is in the YMD format, wrxrL receives the same format by propagation. 
Using the propagation result, wRxFL also receives data in the DMY format. 
BYPASS2000 considers this field as generic because the year is not always in 
the same position. Therefore, it is not possible to propagate a specific date type 
to DD and YY. As a result, for MovE YDTE wRKFL, BYPASS2000 finds an 
incongruence because YDTE passes WRKFL a format that is not valid. Without 
resolving this incongruence, the conversion looks similar to the following 
example: 


DS 
1 60YDTE 


B2???C MOVE YDTE WRKFL 60 

B2INF *CVR5011 sev.50 Field WRKFL is generic. 
B2INF *The propagation engine found a 

B2IN 
B2IN 
B2I 
B2I 
B2IN 
B2IN 


*relationship between a seeded date and 
*non-date so the tool cannot decide 


Ze 


*The cause of this problem may be 
*incorrect or insufficient seeding. 
*Please check. 
MOVELWREFL Pe 20 
MOVE WRKFL DD 20 
MOVELDD WRKFL 
MOVE YY WRKFL 


F 
F 
F 
F *whether it is a date field or not. 
F 
F 
F 


QAAaAA 


In this case, the cause is insufficient seeding. The field WRKFL must be seeded 
in the following ways: 


¢ YMD (No expansion / Propagate with confirm) 
¢ DMY (No expansion / Propagate with confirm) 


When a field is seeded with more than one format, the year extension and 
propagation are difficult (due to the ambiguous information). Propagation with 
confirm ensures we find the date fields that may be loose in the propagation tree. 
Review the Check Requested Information option. If you find messages, such as 
Field related with a non-propagated field, these relate to DD and YY. If they are 
year-sensitive fields, they must be seeded. Selecting option M against the field 
that must be seeded in the Assign Date Field window allows you to seed the field 
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with multiple formats. When seeding is complete, the new conversion looks 
similar to the following example: 


DS 
I 1 60YDTE 
B2TRCC MOVE YDTE WRKFL 60 
B2000C MOVE WRKFL DD 20 


B2REM KEKKKKEKKEKKEKKEKKEKKKKKKKKEK 


B2REM *** CONVERSION START *** 


B2REM KEKKKKEKKEKKEKKEKKEKKKKKKKKKEK 


B2OLDC* MOVELWRKFL YY 20 

B2CHKC MOVE '006P2'HB2&FA 

B2CHKC MOVE WRKFL HB2&F 

B2CHKC MOVE '004P1'HB2&TA 

B2CHKC EXSR HB&ADD ADD CENTURY 
B2CHKC MOVE HB2&T YY 40 


BQREM #R RR RRR RRR KR RRR KKK 
B2REM *** CONVERSION END *** 
BQREM RRR KARR KR RRR ERR KER RK RK K 
B200C MOVELDD WRKFL 
B2TRCC MOVE YY WRKFL 


B2REM KEKKKKEKKEKKKKEKKEKKKKKKKKKEK 


B2REM *** CONVERSION START *** 


B2REM KEKKKKEKKEKKEKKEKKKKKKKKKKKK 


B2NEWC/COPY HBP2CVTR 


B2REM KEKKKKEKKEKKRKKEKKEKKKKKKKKKK 


B2REM *** CONVERSION END *** 


B2REM KEKKKKEKKEKKEKKEKKEKKKKKKKKKK 


Notice the B2CHK in the ADD CENTURY. This is inserted because BYPASS2000 
must switch between two different date type formats. See Appendix C, 
“BYPASS2000 Markers” on page 165, for details of markers. 


6.4 Propagation 


The propagation engine uses the seeded fields from the database to discover all 
impacted fields throughout the application. Figure 115 on page 119 shows the 
propagation flow through BYPASS2000. 
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The Propagation Flow 


Flag status changed to 2 for 
all programs that are going to 
Load Preloaded Dates be converted 


End Phase Flag: 2 
Flag status changed to 5 for 


all programs that are going to 
be converted 


Program Propagation 


End Phase Flag: 5 


Phase 3: Flag status changed to 7 for 


all programs that are going to 
be converted 


Inter-Program Propagation 


End Phase Flag: 7 


Flag status changed to 3 for 
Flag Status Changed to 3 all the programs where new 
dates have been discovered 


Flag status changed to 9 for 
all programs that are going to 
be converted 


Calc. of new length and 
displacement 
End Phase Flag: 9 


Figure 115. Propagation Flow through BYPASS2000 


Table 11 on page 120 shows the status and frequency of phases 1 through 4 of 


the propagation flow through BYPASS2000. 
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Table 11. Phases 1 through 4 of the Propagation Flow through BYPASS2000 


Phase Status Frequency 
1 0—>2 Once only 
2 2—>5 Repeated each time new seeds are assigned ’ 
3 5—>7 Reprocessed only if phase 2 is repeated 2 
4 7—>30or Each time new dates are discovered 
7—>9 Only once 
Notes: 
| Phase 2 is repeated if new year-sensitive fields are discovered after phase 3 is complete. 
2 Phase 3 is repeated after phase 2 when new fields are discovered. 


During phase 2 and phase 3, it is also possible to see a value of 4 and 6 
respectively. This is normal and simply means that an intermediate step is being 
processed. However, it may look as if the flag value changes straight from 7 to 5. 
In fact, it is changed back to 3. The step corresponding to value 4 is processed 
quickly. 


6.4.1 Global and Single Propagation 


120 


The propagation stage is predominantly a global process. It is only by analyzing 
all the programs that it is possible to recognize all the inter-program relationships 
and propagate year-sensitive fields throughout. 


Sometimes it may be necessary to run the propagation for a single program. This 
may be required if you make a seeding change that has no effect on other 
programs, or simply due to the duration of the global propagation. We 
recommend that the first propagation is run globally. If a subsequent single 
propagation is then performed, it is necessary to query the file ANDATOLR (see 
Appendix B, “Conversion Repository” on page 153) to understand if any new 
year-sensitive fields have been discovered but not processed (FLELAB ='N’). If 
this is the case, you must decide whether to process again using the following 
methods: 


¢ Global propagation 
¢ Single propagation for programs that have the FLELAB = 'N' and then check 
table ANDATOLR again at the end of this process. 
To process an inter-program propagation for specific programs, use one of the 
following methods: 


¢ Set the propagation flags for the programs to 0, delete the propagation (on the 
Work with Programs display, select option Q), and rerun the global 
propagation, which is done only for programs with a flag set to 0. 


¢ Put the programs that you do not want to propagate into hold status (option 8) 
and rerun the global propagation. 
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Notes: 


1. A single P against the program only permits single propagation for that 
program alone. 


2. It is imperative that a global propagation is run at the end of the investigative 
work. 


6.5 Conversion 


At this point, BYPASS2000 has enough information to take your converted code 
and modify it to make it Year 2000 ready. Refer to Section 5.7, “Step 6. 
Conversion” on page 92, for more details. 


6.5.1 Understanding BYPASS2000 Code Inserted into Your New Source 


When conversion of your programs is complete, BYPASS2000 inserts code into 
your new source. It does this so that your programs can run properly. The 
following topics provide the definitions of subroutines and parameters that 
BYPASS2000 may insert into your source code. 


6.5.1.1 ADD and REMOVE CENTURY 
This section defines the subroutines and parameters that BYPASS2000 may 
insert into your source code. 


HB @68L ADD CENTURY to a field type YMD — Routine optimized to reduce 
the lines of code inserted in customer program and to increase performance. 
Fast ADD century 6->8. This routine is present in the copy HBPSIM 
(QBP2000/QRPGSRC). 


HB2@F6 FROM — Input field 
HB2@T8 TO — Output field 


HB @24Y ADD CENTURY to a date field type Year — Routine optimized to 
reduce the lines of code inserted in customer program and to increase 
performance. Fast ADD century 2->4. This routine is present in the copy 
HBPSIM (QBP2000/QRPGSRC). 


HB2@YY FROM — Input field 
HB2@Y4 TO — Output field 


HB @68R ADD CENTURY to a date field type DMY — Routine optimized to 
reduce the lines of code inserted in customer program and to increase 
performance. Fast ADD century 6->8. This routine is present in the copy 
HBPSIM (QBP2000/QRPGSRC). 


HB2@F6 FROM — Input field 
HB2@T8 TO — Output field 


HB@ADD ADD CENTURY (standard data type) — This routine is present in 
the copy HBP24C (QBP2000/QRPGSRC). 


HB2@FA FROM — Input field attribute information: 
— First three digits (Field length) 


— Fourth digit (Field type): 
P = Packed 
X = Char 
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N = Zoned 
B = Binary 
1 = System Date 


— Fifth digit (Data type): 
1 Year 
2 Year,Month, Day 
3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 
5 Year and Julian day 
6 Month, Year 
7 Year,Month 


¢ HB2@F FROM — Input field 
¢ HB2@TA TO — Output field attribute information: 
— First three digits (Field length) 
— Fourth digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
1 = System Date 
— Fifth digit (Data type): 
1 Year 
2 Year,Month,Day 
3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 
5 Year and Julian day 


6 Month, Year 
7 Year,Month 


¢ HB2@T TO — Output field 


¢ ADD@HB ADD CENTURY (nonstandard data type) — This routine is present 
in the copy HBPNSC (QBP2000/QRPGSRC). 


¢ FA@HB2 FROM — Input field attribute information: 
— First two digits (Field length) 
— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
1 = System Date 
— Fourth and fifth digits (Year initial position) 
— Sixth digit (Year length) 
¢ F@HB2 FROM — Input field 
¢ T@HB2 TO — Output field 


¢ HB@RMV REMOVE CENTURY (standard data type) — This routine is 
present in the copy HBP24C (QBP2000/QRPGSRC). 
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¢ HB2@FA FROM — Input field attribute information: 
— First three digits (Field length) 


— Fourth digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 


— Fifth digit (Data type): 
1 Year 
2 Year,Month,Day 
3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 
5 Year and Julian day 
6 Month, Year 
7 Year,Month 


¢ HB2@F FROM — Input field 
¢ HB2@TA TO — Output field attribute information: 
— First three digits (Field length) 
— Fourth digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
1 = System Date 
— Fifth digit (Data type): 
1 Year 
2 Year,Month, Day 
3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 
5 Year and Julian day 


6 Month, Year 
7 Year,Month 


¢ HB2@T TO — Output field 


¢ RMV@HB REMOVE CENTURY ( nonstandard data type) — This routine is 
present in the copy HBPNSC (QBP2000/QRPGSRC). 


¢ FA@HB2 FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 


— Fourth and fifth digits (Year initial position) 
— Sixth digit (Year length) 

¢ F@HB2 FROM — Input field 

* T@HB2 TO — Output field 
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¢ HB23 ADD and REMOVE CENTURY flag — This routine is present in the 
copy HBP23C (QBP2000/QRPGSRC). It refers to relationship that transform 
year (YY) in year with century flag (FYY) and back. 


¢ HB23FA FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
1 = System Date (only for ADD) 
— Fourth and fifth digits (Year initial position) 


— Sixth digit (ADD or RMV century): 
A = Add century 
R = Remove century 


* HB23F FROM — Input field 
* HB23T TO — Output field 


¢ HB34 ADD and REMOVE CENTURY flag — This routine is present in the 
copy HBP34C (QBP2000/QRPGSRC). It refers to relationship that transform 
year with century flag (FYY) in year with century flag completely expanded 
(CCYY) and back. 


¢ HB34FA FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
— Fourth and fifth digits (Year initial position) 


— Sixth digit (ADD or RMV century): 
A = Add century 
R = Remove century 


¢ HB34F FROM — Input field 
* HB34T TO — Output field 


Note: All the routines described previously are present not only in source file 
QRPGSRC in library QBP2000, but also in source files QS36SRC, QS38SRC, 
and QRPGLESRC. 


Figure 116 and Figure 117 on page 125 show the subroutines that were inserted 
into the new source code. 
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Customer Code 
DBYMD IFLE PRTYMD 


V3R1M2 Conversion 


MOVE PRTYMD HB2@F6 6 

EXSR HB@68L + CENTURY 6->8 LEFT 
MOVE HB2@T8 H@8N01 80 

DBYMD IFLE H@8N01 


Figure 116. Code Conversion - Add and Remove Century - Example 1 


Customer Code 
MOVE DSPY DBY 2 


V3R1M2 Conversion 


MOVE DSPY HB2@YY 2 
EXSR HB@24Y + CENTURY 2->4 YEAR 
MOVE HB2@Y4 DBY 4 


Figure 117. Code Conversion - Add and Remove Century - Example 2 


Legend: 


DBY Database field with date type 1 (Year), Exp = 4, Prop = 0 
DBYMD Database field with date type 2 (YMD), Exp = 4, Prop = 0 
PRTYMD Printer field with date type 2 (YMD) 


6.5.1.2 SHIFT Enabled 

During set up environment, if you set the parameter Insert SHIFT instruction on 
system date parameter to Y, BYPASS2000 inserts date-shifting logic for system 
dates in the converted code. This means that BYPASSS2000 does not replace 
system date keywords. 


The definitions of BYPASS2000 SHIFT subroutines are described here: 


¢ HB@SHF SHIFT year (standard data type) —This routine is present in the 
copy HBP24C (QBP2000/QRPGSRC). 


¢ HB2@FA FROM — Input field attribute information: 
— First three digits (Field length) 


— Fourth digit (Field type): 
1 = System Date 


— Fifth digit (Data type): 
1 Year 
2 Year,Month,Day 
3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 
5 Year and Julian day 
6 Month, Year 
7 Year,Month 


¢ HB2@FFROM — Input field 
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¢ HB2@TA TO — Output field attribute information: 
— First three digits (Field length) 


¢ HB2@T TO — Output field 


— Fourth digit (Field type): 


P = Packed 
X = Char 

N = Zoned 

B = Binary 


— Fifth digit (Data type): 
1 Year 
2 Year,Month, Day 


3 Day,Month, Year / Month,Day, Year 
4 Day-Month-Year / Month-Day-Year 


5 Year and Julian day 


6 Month, Year 
7 Year,Month 


¢ SHF @HB SHIFT year (nonstandard date type) — This routine is present in the 
copy HBPNSC (QBP2000/QRPGSRC). 


¢ FA@HB2 FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 


P = Packed 
X = Char 

N = Zoned 
B = Binary 


1 = System Date 


— Fourth and fifth digits (Year initial position) 


— Sixth digit (Year length) 
¢ F@HB2 FROM — Input field 
¢ T@HB2 TO — Output field 


Note: All the routines described previously are present, not only in source file 
QRPGSRC of library QBP2000, but also in source files QS36SRC, QS38SRC, 


and QRPGLESRC. 


The examples in Figure 118 are SHIFT subroutines inserted into the converted 
code: 


Customer Code 


MOVE 


UDATE 


V3R1M2 Conversion 


MOVE 
MOVI 
MOVI 
EXS 
MOVI 


Gl © | EI EC 


'00613' 
UDATE 

'O008P3' 
HB@ADD 
HB2@T 


DBYMI 


DBYMD 


HB2@FA 
HB2@F 
HB2@TA 


D 


ADD CENTURY 


Figure 118. Code Conversion - Shift Enabled 
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Legend: 


DBDMY Database field with date type 2 (YMD, Exp = 4, Prop = 0 
DISPY Display field zoned (2,0) with date type 1 (YEAR) 


6.5.2 Understanding Migration Routines 


After the files are converted and recompiled, it is time to generate migration 
routines. These routines migrate your data so that it is Year 2000 compliant. This 
requires data mapping, which is done by BYPASS2000. However, the you should 
verify that their data has been migrated properly. This section contains the 
definition of the BYPASS2000 migration subroutines. 


r—— Important 


Make sure that you have completed conversion of your files before you try to 
create any migration program. Otherwise, migration programs will not be 
created correctly. 


¢ DIXXXX — Date field - Input 
¢ DOXXXX — Date field - Output 


¢ NDXXXX — Part of the record that contain consecutive areas that are 
non-year sensitive fields or date fields not to expand 


¢ ADD@HB ADD CENTURY generic routine — This routine is present in the 
copy HBP2RPGMTC (QBP2000/QRPGSRC). 


¢ FA@HB2 FROM — Input field attribute information: 
— First two digits (Field length) 
— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 
— Fourth and fifth digit (Year initial position) 
— Sixth digit (Year length) 
¢ F@HB2 FROM — Input field 
¢ T@HB2 TO — Output field 


¢ HB23ADD and REMOVE CENTURY flag — This routine is present in the copy 
HBP2RPGMTC (QBP2000/QRPGSRC). It refers to relationship that transform 
year (YY) in year with century flag (FYY) and back. 


¢ HB23FA FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 


— Fourth and fifth digits (Year position) 
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— Sixth digit(ADD or RMV century): 
A = add century 
R = remove century 


¢ HB23F FROM — Input fieldB23T TO - Output field 


Only date fields with two-digit year lengths seeded to expand are defined in the 
program shown in Figure 119. The other fields (date fields with four-digit year 
lengths or seeded not to expand and non-date fields) are defined in a single field 
whether they are consecutive. 


* BYPASS2000 - MIGRATION PROGRAM FOR FILE FILEX1 


FFILEIN IP F 87 DISK 

FFILEOUT O F 94 DISK 

E/COPY HBP2RPGMTE 

FILEIN AA 
i 1 NDOOO1 
2 70DI0001 
8 8 NDOOO02 


P 9 120DI0002 
P 13 160DI0003 
17 31 NDO003 
P 32 330DI0004 
34 78 NDOOO4 
79 82 DIO005 
83 87 NDOOOS 


/COPY HBP2RPGMTI 


[e; MOVE '06N012' FA@HB2 

ie; MOVE DIOOO1 F@HB2 

i; EXSR ADD@HB 

Cc MOVE T@HB2 DOOOO1 80 
c* 

Cc MOVE '07P062' FA@HB2 

le: MOVE DI0002 F@HB2 

G EXSR ADD@HB 

i; MOVE T@HB2 DOOO0O2 90 
ce 

Cc MOVE '07P062' FA@HB2 

Cc MOVE DIO0003 F@HB2 

Cc EXSR ADD@HB 

i! MOVE T@HB2 DOO003 90 
ce 

c MOVE '02P012' FA@HB2 

ie; MOVE DI0004 F@HB2 

Cc EXSR ADD@HB 

Cc MOVE T@HB2 DOO004 50 
ce 

ie MOVE '04X012' FA@HB2 

G MOVE DIO0005 F@HB2 

c EXSR ADD@HB 

ie; MOVE T@HB2 DOOOO5 6 
c* 

Cc EXCPTFM0001 

C/COPY HBP2RPGMTC 

OFILEOUT E FMO001 

fe) NDOOO1 HE 

fe) DOOO001 9 

fe) NDOO002 10 

fe) DO0002 15P 

fe) DO0003 20P 

fe) NDOO03 35 

fe) DO0004 38P 

fe) NDOO004 83 

fe) DOO005 89 

fe) NDOOO5 94 


Figure 119. Example Migration Routines 


For more information on COBOL migration code, see the Web site at: 
http://www. software.iobm.com/ad/as400/bypass/ 
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6.5.3 Understanding Test Migration Routines 
BYPASS2000 offers test migration routines to move your date fields in your files 
into the future by any amount. This section describes the BYPASS2000 
subroutines. 


-—— Important 


Make sure that you have completed conversion of your files and have compiled 
them before you try create any test migration program. Otherwise, the test 
migration programs will not be created. 


¢ DIXXXX — Date field - Input 
¢ DOXXXX — Date field - Output 
¢ NDXXXX — Part of the record without any year-sensitive information 


¢ ADD@HB ADD CENTURY generic routine — This routine is present in the 
copy HBP2RPGMTC (QBP2000/QRPGSRC). 


¢ SHF@HB SHIFT YEAR generic routine — This routine is present in the copy 
HBP2RPGMTC (QBP2000/QRPGSRC). 


¢ FA@HB2 FROM — Input field attribute information: 
— First two digits (Field length) 
— Third digit (Field type): 


Q = Packed 
X = Char 

N = Zoned 
B = Binary 


— Fourth and fifth digits (Year initial position) 
— Sixth digit (Year length) 

¢ F@HB2 FROM — Input field 

¢ T@HB2 TO — Output field 

¢ HB23FA FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P = Packed 
X = Char 
N = Zoned 
B = Binary 


— Fourth and fifth digits (Year position) 


— Sixth digit (ADD or RMV century): 
A = Add century 
R = Remove century 


¢ HB23F FROM — Input field 
* HB23T TO — Output field 
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Program Example 

All the date fields (both date fields with two-digit year lengths seeded to expand or 
not to expand and date fields with four-digit year lengths) are defined in this program. 
For date fields with two-digit year lengths seeded to expand, BYPASS2000 calls both 
the add century routine and the shift routine. For date fields with four-digit year 
lengths or seeded not to expand, it calls shift routine. The non-date fields are defined 
in a single field whether they are consecutive. 


* BYPASS2000 - "TEST" MIGRATION PROGRAM FOR FILE FILEX1 
* 
* USE ONLY FOR TEST PURPOSES 


* DO NOT USE FOR PRODUCTION 
* 


FFILEIN IP F 87 DISK 

FFILEOUT O F 94 DISK 

E/COPY HBP2RPGMTE 

FILEIN AA 
al. 1 NDOOO1 
2 70DI0001 
8 8 NDOOO02 


P 9 120DI0002 
P 13 160DI0003 
17 31 NDO003 
P 32 330DI0004 
34 78 NDOOO04 
79 82 DIOO005 
83 87 NDOOOS 


/COPY HBP2RPGMTI 
MOVE '061012' FA@HB2 


MOVE DIOOO1 F@HB2 
EXSR ADD@HB 
MOVE T@HB2 DOOOO1 80 


* 


MOVE '070062' FA@HB2 


MOVE DI0002 F@HB2 
EXSR ADD@HB 
MOVE T@HB2 DOOO0O2 90 


* 


MOVE '070062' FA@HB2 


MOVE DIO0003 F@HB2 
EXSR ADD@HB 
MOVE T@HB2 DOO003 90 


* 


MOVE '020012' FA@HB2 


qgqaqgagaagaaaanaadgaanaaagaagaagaaaaagaaanaaaaana 


MOVE DI0004 F@HB2 
EXSR ADD@HB 
MOVE T@HB2 DOO004 50 
* 
MOVE DIO005 F@HB2 
EXSR ADD@HB 
MOVE T@HB2 DOOOO5 6 
* 

Cc EXCPTFM0001 

C/COPY HBP2RPGMTC 

OFILEOUT E FMOO001 

fe) NDOOO1 1 

fe) DOOOO01 9 

fe) NDOO002 10 

fe) DO0002 15P 

fe) DOO0003 20P 

fe) NDOO03 35 

fe) DO0004 38P 

fe) NDOO004 83 

fe) DOO005 89 

fe) NDOOO5 94 


Figure 120. Test Migration Routines 


For more information on COBOL migration code, see the Web site at: 
http://www. software.iobm.com/ad/as400/bypass/ 
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6.5.4 Understanding Data Integrity Module (DIM) 


BYPASS2000 also creates a module which tests if data being written into a file is 
of a certain format. Date formats that are not valid are detected by the module. 
This section shows the subroutines and variables used in the BYPASS2000 DIM. 


-—— Important 


Make sure that you have completed conversion of your files and have compiled 
them before you try create any Data Integrity Module. Otherwise, no DIM is 
created. 


¢ DTXXXX — Year or Date field - Input for DIM 
¢ WFMT FROM — Input field attribute information: 
— First two digits (Field length) 


— Third digit (Field type): 
P= Packed 
X = Char 
N = Zoned 
B = Binary 


— Fourth and fifth digits (Year initial position) 
¢ WDATE FROM — Input field 
¢ WNAME — Field name 


¢ HB@CHK YEAR VALIDITY CHECK generic routine — This routine is present 
in the copy HBP2DIMC (QBP2000/QRPGSRC). 


¢ FYYCHK YEAR VALIDITY CHECK generic routine — This routine is present 
in the copy HBP2DIMC (QBP2000/QRPGSRC). 


¢ WATBL — Internal field used by the tool 

¢ PGM — Internal field used by the tool 

¢ PGR — Internal field used by the tool 

¢ BUFFER — Internal field used by the tool 
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The following example shows a data integrity module for a file. 


* BYPASS2000 - DATA INTEGRITY MODULE FOR FILE FILEX1 
/COPY HBP2DIMEI 
IBUFFER DS 
2 50DT0001 
11 150DT0002 
P 16 200DT0003 
P 36 380DT0004 
84 87 DTOOOS5 


Le] 


* ENTRY PLIST 
PARM PGM 10 
PARM PRG 3 
PARM WATBL 
PARM BUFFER 


MOVEL'FILEX1 'FILE 10 
MOVE *BLANK WATBL 

MOVE *ZERO a § 

MOVE DTOOO1 WDATE P 
MOVE '04NO01' WFMT 
MOVEL'XSYMD'! WNAME 

EXSR HB@CHK 


* 


MOVE DTO002 WDATE P 
MOVE '0O8P05' WFMT 
MOVEL'XSDMY' WNAME 
EXSR HB@CHK 


* 


MOVE DTO003 WDATE P 
MOVE '09P06'! WFMT 
MOVEL'XSDMY2' WNAME 
EXSR HB@CHK 


* 


MOVE DTO0004 WDATE P 
MOVE '04P01' WFMT 
MOVEL'XSYY' WNAME 


EXSR HB@CHK 


* 


MOVE DTO005 WDATE P 
MOVE '04X01' WFMT 
MOVEL'XSYM' WNAME 


EXSR HB@CHK 
* 


qgqagaQqgqagaagaaagadgaaaaadqgaadgaagaagaagagaaanaAaARAAAANAANAAAAAAAHHHHH 


RETRN 
C/COPY HBP2DIMC 


Figure 121. Example of a Data Integrity Module (DIM) 


For more information about COBOL DIM, see the Web site at: 
http://www. software.iobm.com/ad/as400/bypass/ 


6.6 Hints and Tips 


Converting your applications using BYPASS2000 is not straightforward. You need 
a good understanding of the application to ensure the correct seeding is fed in for 
the propagation and conversion to be successful. You must also detect the 
reason for any generic fields and incongruences by understanding the program 
logic. 


This section gives some hints on how to determine the cause of common 
problems and how to prevent them. 


6.6.1 The Structural Solution 


BYPASS2000 applies the structural solution to help resolve your application Year 
2000 issues. In other words, every year-sensitive field discovered during 
propagation is extended to a four-digit year. The only exceptions to this rule are 
display (MAP) and report (PRT) year-sensitive fields. These keep the same 
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length and BYPASS2000 applies logic to add and remove the century (see 
Section 5.7.1.1, “Add Century Routine” on page 94, for more details). 


If required, you can choose not to expand certain files, fields in files, or internal 
program areas. In this case, BYPASS2000 applies the same logic as for the 
display and report year-sensitive fields. If you choose not to expand a field, it is 
important to be aware of incongruences that may arise if this field is related to 
other date fields. 


Consider the following example: 


IDT1 DS 

I 1 10 MM1 
I 11 12 AAL 
I 13 22 DD1 
IDT2 DS 

I 1 10 MM2 
a 11 12 AA2 
ils 13 22 DD2 
Cc MOVE DT1 DT2 


Suppose we want to expand the year AA1 but do not want to expand AA2. The 
result after the conversion is shown in the following example: 


IDT1 DS 
I 1 10 MM1 
B2MODI 11 14 AAL i! 
B2MODI 15 24 DDL 
IDT2 DS 
I 1 10 MM2 
I fi do aap 
I 13 22 DD2 
B2???C MOVE DT1 DT2 3 
B2INF *CVR3013 sev.30 Field DT1 contains a year inside but 
B2INF * does not have a standard data-type 
B2INF *CVR3013 sev.30 Field DT2 contains a year inside but 
B2INF * does not have a standard data-type 
-—— Notes 


1. AA1 is expanded. 
2. AA2 is not expanded. 


3. The group level relationship between one expanded area and a 
non-expanded area produces an incongruence that must be dealt with 
manually (BYPASS2000 does not apply logic for adding/removing the 
century). 


4. This error shows how the position of the year within the field is important. 


6.6.2 Fields Shared between PF and PRT/MAP Files 


Suppose we have a field DDATE in both the database and the printer file. 
BYPASS2000 chooses to expand this field and informs the user that the printer 
field has been expanded as follows: 
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FFILEO1 UP E K DISK 


FPRTFO1 O E PRINTER 
* Database Field 
ie MOVE UDATE DDATE 
* Non-Database Field 
c MOVE UDATE PRTIDTE 60 
The result after the conversion is shown in the following example: 
FFILEO1 UP E K DISK 
B2CHK FPRTIFO1 O E PRINTER 
B2INF *CVR3010 sev.30 Printer file PRTFO1 must be converted because 
B2INF * field DDATE (and others) is shared by name with other 
B2INF * database fields which require expansion. Please convert 
B2INF * PRTFO1 enlarging all related fields prior to compilation, 
B2INF * or manually insert the correct RENAME and MOVE statements 
B2INF * in this source to avoid name-sharing. 
* Database Field 
B2REM KEKE KKRKEKKKKKKKKKKKK KER 
B2REM *** CONVERSION START *** 
B2REM KEK KKEKKKEKEKKKKKKKKE KKK KKK 
B2OLDC* MOVE UDATE DDATE 
B2NEWC MOVE '00613' HB2&FA 
B2NEWC MOVE UDATE HB2&F 
B2NEWC MOVE '008N3' HB2&TA 
B2NEWC EXSR HB&ADD ADD CENTURY? 
B2NEWC MOVE HB2&T DDATE 


B2REM RRR KK KKK KEK KK RK KR RK KEK 
B2REM *** CONVERSION END *** 
B2REM ERK RK KEK KEK KKK KR KK ERK 
* Non-Database Field 
B2REM 4 RRR RK KEK KEK KKK KR KK EEK 


B2REM *** CONVERSION START ** 
B2REM RRR KK ERK RRR K ERK KERR EK 


B2OLDC* MOVE UDATE PRTDTE 60 

B2NEWC MOVE '00613' HB2&FA 

B2NEWC MOVE UDATE HB2&F 

B2NEWC MOVE '006P3' HB2&TA 

B2NEWC EXSR HB&SHF SHIFT YEAR? 
B2NEWC MOVE HB2&T PRTDTE 60 


B2REM 4 RRR KK ERK RRR KERR KERR EK 


B2REM *** CONVERSION END *** 
B2REM RRR RRR RRR RR KERR KE RRR EK 


-— Notes 


on page 94. 


on page 82. 


1. Add Century routine is explained in Section 5.7.1.1, “Add Century Routine” 


2. Shift Year routine is explained in Section 5.5.4.2, “Century Window Routine” 


The same result is obtained when a display field is shared with a database field. 
BYPASS2000 works by expanding the database fields. When relationships exist 
between database fields and display or printer fields (and not between data 
structures containing fields to be and not to be expanded), BYPASS2000 inserts 
the routine for the Add Century. If these printer or display fields are shared with 
other database fields and are related to system fields, BY PASS2000 only inserts 
the routine for the Shift Year (see Section 5.7.1.1, “Add Century Routine” on page 
94, and Section 5.5.4.2, “Century Window Routine” on page 82, for more details 


on the Add Century and Shift Year routines). 


6.6.3 Seeding and Propagation 
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BYPASS2000 can recognize 15 different date types (see Appendix A, “Interfacing 
to BYPASS2000” on page 149, for this list) and allows seeding with a substring in 


packed or zoned fields. 
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Always ensure that the seeding information you have obtained (whether through 
a tool or manually) includes all the possible date fields. If this information is 
provided from an impact analysis tool, it is vital that you check the result. 


If the propagation runs with insufficient input information, it is possible that 
generic areas (fields containing data of more than one type) are discovered, 
causing the propagation to end. 


Propagation uses the set of predefined dates from the seeding to build its tree. 
However, each connection is terminated for the following reasons: 


¢ There are no relationships between the last variable of a branch and other 
variables. 


¢ There is a relationship between a variable (defined as a date) and a locked 
(but not seeded) date. 


See the following example: 


IREC1 DS 

I 1 20 FIL1 
I 21 26 DTEL1 
I 27 35 FIL2 
IREC2 DS 

I 1 20 FIL3 
I 21 26 NUM2 
I 27 35 FIL4 
IREC3 DS 

I 1 20 FILS 
I 21 26 QTY3 
I 27 35 FIL6 
INODTE DS 

I 1 15 FIL7 
I 16 21 WRKFL 


REC1 is locked and DTE1 is seeded. The other records do not contain dates. 
However, the following example shows how more information is required: 


Cc MOVE DTE1 WRKFL 


Cc MOVE WRKFL NUM2 
Cc MOVE WRKFL QTY3 


During the propagation, wRKFL becomes a date. In turn, both NUM2 and QTY3 
also have dates passed. wrxFL is a generic field. By seeding only REC1, you do 
not see any incongruences but both NUM2 and QTY3 are expanded. To prevent 
this from happening, you must lock REC2 and RECS. This produces 
incongruences, but the fields are not expanded. 


To avoid incongruences, you must seed DTE1 using the propagate with confirm 
option. Do not forget that non-year sensitive fields (when related) can also stop 
the propagation chain. You can avoid this by locking them as non-year fields. 
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In addition to the database, other kinds of date fields may need to be seeded. 
Here is the recommended list: 


¢ Seed the COPYs that are used by more than one program. 


If a COPY is used by several programs, the set of preloaded dates is 
duplicated. You can retrieve this information easily by querying the file, 
ANDATRPC (see Appendix B, “Conversion Repository” on page 153). 


Seed the parameter list of the most common routines (when COPYBOOK 
defined). 


You can retrieve this information by querying the file ANDATCCR (see 
Appendix B, “Conversion Repository” on page 153 for more information). 


Seed the parameters of routines with no source (when a COPYBOOK is 
defined). 


There are some situations where source code is not available for the program 
objects. In this case, inter-program-communication is not effective so dates 
within these parameters are not discovered. 


6.6.3.1 Implicit Definitions for Year-Sensitive Fields 
Consider a multi-format file defined as follows: 


IREC1 DS 

ng 1 2 TPEL 
I 3 18 KEY1 
i 3 8 KDIE 
ng 9 18 FILL 
IREC2 DS 

I 1 2 FIL3 
ag 3 18 KEY2 


KEY2 may contain some date information even though the name does not imply 
this. Do not rely solely on the names of the fields because it is not always obvious 
from the field names whether they contain dates. 


6.6.4 Date Handling Routines 
We do not advise using BYPASS2000 to convert date handling routines. It is 
preferable to invest time to rewrite them with new logic to resolve the ambiguity. 


The problem is that date handling routines generally use the same working area 
for different purposes and consequently using different date formats. This can 
affect the calling program during the propagation process, moving incorrect date 
information through the linkage area of the date handling routine. 


The following list shows date handling routines that can cause propagation 
problems: 
¢ A numeric algorithm date handling routine that changes the date format. 
¢ A routine that calculates the difference between two dates. 


¢ When the date format is received in the routine parameters and, therefore, it is 
impossible to know the date format until the program is called. 
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e If the date routine uses the same redefined area to contain different date 
information. 


¢ A date routine that uses the same date field for input and output. 


6.6.5 Incongruences 


Incongruences are usually a result of a date and non-date field coming into 
contact with each other. The example in the following section describes how this 
can happen. 


6.6.5.1 Link between a Year and Non-Year Sensitive Field 
Consider the following examples: 


R RECO1 (Locked) 
FLDO1 5 
FLDO21 2s 0 
FLD022 2s 0 
FLD023 2s 0 
FLDO3 4 
YEARFL 280 (Seeded) 


The program is: 
C FuLDO021 IFGT YEARFL 


YEAREFL is a year-sensitive field (as it is part of the preloaded dates). However, 
FLDO21 is not year-sensitive (it belongs to a locked area and is not seeded). The 
same thing happens for a copy or structure not related to a file but seeded with a 
lock in areas containing the two fields and the same seeding information. 


The results after the conversion are shown in the following example: 


R  RECO1 (Locked) 
FLDO1 5 
FLDO21 2s 0 
FLDO022 2s 0 
FLD023 2s 0 
FLDO3 4 
B2MOD YEARFL 4s 0 (Seeded) 


The program is: 


B2??2C FLDO21 IFGT YEARFL 
B2INF *CVROOO1 sev.00 Field FLDO21 is not a date or a year 


The preceding situation is symptomatic of incorrect seeding. 


6.6.5.2 Generic Variables (or Work Fields) 
Consider the following example: 


FILEOL 
R RECOL (Locked) 

FLDO1 5 

FLDO21 2s 0 

FLDO022 2s 0 

FLDO023 2s 0 

FLDO3 4 

YEARFL 2s 0 (Seeded) 
PROGRAM 
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Cc MOVE YEARFL WCHKNU 18 
Cc CALL 'CHKNUM' 

Cc PARM WCHKNU 

Cc PARM WRCODE 

Cc MOVE FLDO3 WCHKNU 

Cc CALL 'CHKNUM' WCHKNU 

Cc PARM WCHKNU 

Cc PARM WRCODE 


WCHKNU is a generic field because it receives both year and non-year sensitive 
fields. To resolve this, WCHKNU must be defined as a year-sensitive field, setting 
it not to expand or propagate. Alternatively, you can choose Propagation with 
Confirm. This ensures that all fields propagating to WCHKNU are identified (see 
Chapter 5, “BYPASS2000 Tutorial” on page 57, for more details). 


6.6.5.3 Fields Used to Change the Date Format 
Consider the following example: 


c READ FILE1 30 

c MOVE DBDATE WDATE 

c EXSR SWAP DAY / YEAR SWAP 
c MOVE WDATE DSPFDT 


MOVE DSPFDT WDATE 

EXSR SWAP DAY / YEAR SWAP 
MOVE WDATE DBDATE 

UPDATRECOL 


ie] 


QAQAaAAanAA 


The WDATE field receives the date in YYMMDD format (from the database) and 
changes it to DDMMYY for display purposes. After you change and validate this, 
WDATE field receives the date in DDMMYY format from the display field and 
changes it back to YYMMDD for database storage. 


The result is shown in the following example: 


Cc READ FILE1 30 
B2???C MOVE DBDATE WDATE 
B2INF *CVR5011 sev.50 Field WDATE is generic... 

Cc EXSR SWAP DAY / YEAR SWAP 
B2???C MOVE WDATE DSPFDT 


B2INF *CVR5011 sev.50 Field WDATE is generic... 
B2INF *CVR5011 sev.50 Field DSPFDT is generic... 


B2???C MOVE DSPFDT WDATE 
B2INF *CVR5011 sev.50 Field DSPFDT is generic... 
B2INF *CVR5011 sev.50 Field WDATE is generic... 


Cc EXSR SWAP DAY / YEAR SWAP 
B2???C MOVE WDATE DBDATE 
B2INF *CVR5011 sev.50 Field WDATE is generic... 

Cc UPDATRECO1 


To resolve this, WDATE must be seeded with both date formats (using option M 
from the Assign Date Field window) and set it not to expand but Propagate with 
Confirm. This reduces the number of incongruences. 
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The propagation engine can determine the correct date type for DSPFDT if it has 
definite contacts with other year-sensitive fields. Otherwise, BYPASS2000 
requests further seeding for field DSPFDT from the user. 


6.6.5.4 Adding a Variable to a Year-Sensitive Field 
lf a variable is added to a year-sensitive field, the result is dependent on the 
format of the receiving year. For example: 


ADD WSINT WSYEAR 


WSYEAR may be in CCYY (Century Year) instead of YY format. This is a true 
conceptual problem because, even if the field is expanded, the result may not be 
correct. Therefore, a manual check is required. After the propagation, there are 
messages, such as Unknown propagation effect..., in the Check Request 
Information, and in the converted code, there is a B2INF label to indicate where 
the problem lies. 


6.6.5.5 Arithmetic Operations on Year-Sensitive Fields 

There may be a calculation involving a year-sensitive field that is not a leap year 
calculation. This causes a conceptual problem and a manual check is required. 
However, there are the following exceptions: 


¢ Addition and subtraction of a constant value to or from the year-sensitive field. 


YY ADD 1 = YY1 YYYY ADD 1 = YYYY1 
96 ADD 1 = 97 1996 ADD 1 = 1997 

(20)00 ADD 1 = 01 (?) 2000 ADD 1 = 2001 

¢ Division on certain values. 
YY DIV 10 = Yy1 YYYY DIV 10 = YYYY1 
YY DIV 10000 = YY1 YYYY DIV 100000 = YYYY1 
YY DIV 4 = YY1 YYYY DIV 4 = YYYY1 

¢ Multiplication of certain values. 
YY MULT 100 = YY1 YYYY MULT 100 = YYYY1 
YY MULT 10000 = YyY1 YYYY MULT 10000 = YYYY1 
YY MULT 100.0001 = YY1l YYYY MULT 100.0001 = YYYY1 
YY MULT 10000.01 = YY1 YYYY MULT 10000.01 = YYYY1 


The preceding results are all correct. Therefore, the B2000 marker is added 
instead of B2??? (see Appendix C, “BYPASS2000 Markers” on page 165, fora 
list of all the markers and their meanings). BYPASS2000 is unable to handle 
arithmetic operations between a field that is to be expanded and one that is not. 
This results in error message CVR5008, which says that the converter cannot 
handle arithmetic operations between expanded and not-expanded fields. 
Therefore, this must be handled manually. 


6.6.5.6 Instructions Relating an Expanded and Non-Expanded I/O Area 
Consider the following example: 


TRECO1 DS (display Input Record) 
L 5 FLDO1 

I 6 70FLD021 (Year) 

I 8 90FLD022 

I 10 110FLD023 

I 12 150FLD03 

T 16 170YEARO1 (Year) 
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IRECO2 DS (Program I/O Area) 


I 5FLD21 

I 6 70FLD221 (Year) 
I 8 90FLD222 

I 10 110FLD223 

Tr 12 150FLD23 

I 16 170YEARO2 (Year) 
C MOVE RECO1 RECO2 


Fields within RECO1 must not be expanded because they are display fields. The 
result is shown in the following example: 


IRECO1 DS 


I 1 5 FLDO1L 
A 6 70FLD021 (Year) 
ae 8 90FLD022 
I 10 110FLD023 
I 12 150FLD03 
I 16 170YEARO1 (Year) 
TRECO2 DS 
L 1 5FLD21 
B2MODI 6 90FLD221 (Year) 
B2MODI 10 110FLD222 
B2MODI 12 130FLD223 
B2MODI 14 170FLD23 
B2MODI 18 210YEARO2 (Year) 
B2???C MOVE RECO1 RECO2 


B2INF *CVR3012 sev.30 Field RECO1 has more than one year inside 


This happens because instructions that add or remove centuries can be inserted 
only for the standard year-sensitive field types. 


6.6.6 Repeating Certain Steps in the Process 


Figure 122 on page 141 shows the BYPASS2000 flow and how and when certain 
steps are repeated. 
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BYPASS2000 Flow - Repeating Steps 


Setup conversion 
Environment 


Load Database 
Information 


Missing files, copybooks or 
program ?. 

Load the missing objects and 
retum to step 2 


Date Field 
Assignment 


Incongruences/Generic Fields 
Discovered - retum to step 4 


Step 5: 


Propagation 


Step 6: 


Conversion 


Step 7: 


Compilation 


Step 8: 


Figure 122. The BYPASS2000 Steps to a Successful Migration 


The conversion process can be divided into the following phases: 


¢ Analysis (memory-level and propagation) phase — Updates the repository. 
¢ Conversion phase — Produces output, repository not updated. 


It is possible that certain steps of the analysis process may need to be repeated. 
If stages of the first phase (See preceding example) must be rerun, then all 
information previously recorded must be deleted. If the DDS must be analyzed 
again, then all the old DDS analysis and all programs using this DDS must be 
deleted. However, if certain stages of the conversion phase must be repeated, it 
is sufficient to set the corresponding flag to 0. 


If the option to delete a phase is selected, this function automatically sets the 
corresponding status flag to 0, deletes the relevant messages in the Display 
Conversion Log, and also deletes those messages that have not been checked in 
the Check Request Information. When a propagation phase is deleted, the 
corresponding propagation trace and generic areas are also deleted. In this case, 
the status flag cannot be set to 0 manually because there are corresponding 
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interactive functions that are required. In this case, selecting option Q from the 
Work with Programs display is necessary. 


Information that has been entered manually or retrieved by BYPASS2000 is 
stored in the repository. It is never deleted unless explicitly requested by you. 
This is done by either removing seeding, deleting the analysis, or propagation. 


The following repository files are not updated by the delete steps: 


¢ HSDATFLD — Assigned fields (seeding file) 
HSDATINQ — User inquiry 

HSDATLCK — Locked areas 

HSDATPAR — Parameter table 

USxxxxxx — User entry files 


Table 12 shows whether the repository is updated for a given function. 
Table 12. BYPASS2000 - Given a Function, Is the Repository Updated 


Function Repository Deletion Steps 
Updated? 

Load AS/400 Y Automatically restarted - no deletion required 
Database Information Memory Level 
Analyze copy Y Delete copy analysis 

Delete copy and program analysis 
Analyze SQL table Y Delete SQL table analysis 
definition source 
Analyze program Y Delete program analysis 

Delete copy and program analysis 
Perform program Y Delete propagation level analysis 
propagation 
Convert Copy * N "0" for CONV.FLAG in the source listing 
Convert Program * N "0" for CONV.FLAG in the source listing 
Create migration N "0" for MIGR.FLAG in the source listing 
program * 
Create test migration N "0" for TXT FLAG in the source listing 
program * 
Create DIM program * N "0" for DIM FLAG in the source listing 


* - A manual interactive process 
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The Table 13 shows the impact of each deletion step. 


Table 13. BYPASS2000 - The Impact of a Deletion Step 


Deletion Step Impact 


Delete program analysis Remove program data field propagation 


analysis information. 


Remove the program analysis information 
(memory level). Set the PROP flag to "0". Set 
the CONV flag to 0. 


Delete copy and program analysis Remove the program date field propagation 


analysis information. 


Remove the program analysis information 
(memory level). Remove the copy analysis 
information (memory level). Set the ANA flag 
to 0 for the programs and copies. Set the 
PROP flag to 0 for programs and copies. Set 
the CONV flag to 0 for programs and copies. 


Delete propagation level analysis Remove the program date field propagation 


analysis information. 


Remove the CLP date field propagation 
analysis information (global). Set the PROP 
flag to 0. Set the CONV flag to 0. 


6.6.7 Making Changes 


During the conversion process, changes may need to be made to the application. 
The next section describes what must be done on the BYPASS2000 side to 
continue with the process. 


6.6.7.1 Source Copy Is Changed 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. 


Oso ON 


9. 


If seeded, remove the seeding. 
Remove the assignment to the file. 


Delete the program memory-level analysis for the programs using that copy 
(this also deletes the propagation). 


Delete the copy memory-level analysis. 
Analyze the programs (memory-level). 
Assign the new copy to the file. 

Seed the copy. 


To see the new result, run program date field propagation for copy and 
programs. You can check file ANDATCCR to ensure the new copy is 
associated. 


Convert the copy. 


10.Convert the programs. 
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6.6.7.2 Physical File ls Changed 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. If seeded, remove the seeding. 


2. Delete the program memory level analysis for the programs, copy, and CLP 
using that PF (this, in turn, deletes the propagation). 


. Delete the program, CLP, and copy memory-level analysis. 
. Analyze the PF (memory-level). 

. Analyze the programs and CLP (memory-level). 

. Seed the PF. 


. Run program date field propagation for copy, CLP, and programs. Analyze 
ANDATCCR to ensure the new copy is associated. 


8. Convert the PF. 
9. Convert the copy. 


N DO On FB W 


10.Convert the programs and the CLP. 


6.6.7.3 Changing a Source Program 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


. Remove any seeding done on the fields in the programs working storage. 
. Delete program memory-level analysis. 

. Analyze the program (memory-level). 

. Reseed the working storage fields. 


. Run program date field propagation. 


oOo a fF WwW YP — 


. Convert the program. 


6.6.7.4 Changing the Seeding (PF, RPG, CLP, COPY) 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. Change the seeding of the field in either PF, RPG, CLP, or COPY. 


2. Delete program date field analysis for programs, copy, and CLP using the PF 
(this also deletes the propagation), run program date field propagation, and 
convert again. 


6.6.7.5 Inserting a New Physical File 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. Insert the physical file in your old data file library (xxxxDAT if you took the 
default). 


2. Take the option to Load AS/400 Database Information. 
3. Include the new member (F15) in Work with File (memory-level). 


4. Analyze the PF (memory-level). 
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5. 
6. 


Seed the PF. 
Convert the PF. 


6.6.7.6 Inserting a New Program 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. 


a fF WwW DY 


6. 


Add the PGM to xxxxOLD (your old source programs library) in QOLPSRC (for 
CLP), QRPGSRC (for RPG), and QCBLSRC (for COBOL). 


. Include the new member (F15) in "Work with Program" (memory-level). 
. Analyze the PGM (memory-level). 
. Seed the program if required. 


. Run program date field propagation. Analyze file ANDATCCR to ensure this 


program has been associated. 


Convert the PGM and the other programs involved. 


6.6.7.7 Modifying a Source Program 
The BYPASS2000 side must perform these steps before the conversion process 
can continue: 


1. 
2. 


If seeded, remove the seeding. 


After modifying the source, delete the propagation memory-level analysis for 
the program. 


3. Analyze the PGM (memory-level). 


4. Seed the program if required. 


. Run program date field propagation. Analyze file ANDATCCR to ensure the 


source listing has been updated. 


. Convert the PGM and the other programs involved. 


6.6.8 Performance Strategies 


This topic discusses performance considerations when converting your 
applications using BYPASS2000 and general AS/400 performance 
considerations when moving to the Year 2000. 


6.6.8.1 Inter-Program Communication 

The propagation process flows through many different cycles (See Figure 115 on 
page 119, for details of the flow). Table 14 shows the main difference between 
analysis and propagation. For analysis, the entire execution is completed 
program-by-program. Propagation runs through each program one step at a time. 


Table 14. BYPASS2000 - Inter-Program Communication 


Analysis Propagation 
Step Program Step Program 
1 1 1 1 
2 1 1 2 
3 1 1 3 
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Analysis Propagation 
Step Program Step Program 
n 1 1 n 
1 2 2 1 
2 2 2 2 
3 2 2 3 


The reason for the difference is because propagation needs to consider all the 
links between programs. Therefore, any date field found in a program must be 
propagated to all other programs linked to it. 


6.6.8.2 Access Paths 

Because of the numerous factors that affect processing time, it is almost 
impossible to produce a formula to calculate the length of time it takes to rebuild 
access paths for the Year 2000. Some of the factors that must be taken into 
consideration are: 


¢ Type of processor 

¢ Workload during access path build 

¢ Number of key fields 

¢ Number of records in the physical files 

¢ Programming development environment 


For optimum performance, consider the ACCPTHSIZ field in Create Physical File 
(CRTPF) command. Systems at V3R6MO and later have the value of *MAX1TB 
for the access path size. This is essential if there is high contention for keys and 
also gives better performance results. 


6.6.9 Expanding PRT/MAP Fields 


As previously discussed, BYPASS2000 does not expand display or printer 
reports. However, it may be that some applications require display and report 
fields to be expanded, which is possible by removing the MAP/PRT fields that you 
want to expand from the list of fields not to be expanded. See Section 5.5.4, 
“Display and Printer Fields” on page 82, for more details. 


6.6.10 Authorization Violation 
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If you receive an Authorization Violation message when attempting certain 
stages of the process, this means that you have not entered your software 
license key. You can obtain your license key from HAL (as per the instructions in 
the installation guide). Then, follow these steps: 


1. Type the following command on a command line and press Enter. 
ADDLIBLE QBP2000. 

2. Enter Bppr to work with BYPASS enabling. 

3. Enter your software key. 
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6.6.11 Seeding Unsupported Date Types 


BYPASS2000 can handle 12 different date types (see Appendix A, “Interfacing to 
BYPASS2000” on page 149, for the detailed list). If your database contains dates 
in an unsupported format, it highlights this instruction and requires manual 
intervention. 


BYPASS2000 does not support data areas as objects. However, it does 
recognize a data area as an input/output area in the program. However, the data 
area is not updated or flagged in any way by BYPASS2000. Therefore, it is 
important that you check your application for use of data areas to ensure your 
results are correct. For example, the following sample data area contains a date 
field of six digits. 


( Display Data Area *) 
Data: Grea see cas Cee et BYPASS 
TH DVary oe 58. oe eat BYPASS 
TYDG: 632 es: Save ae Sere” Ss *DEC 
Length ........: 6 0 
TORE 2 os, S009 Oh Be wet BYPASS2000 DATE DATA AREA 
Values. oe ee ee 8 061097 
AS SJ 


Figure 123. Display Data Area 


This information may have been stored in this way to reduce disk space. When 
this data is passed to a data structure in a program already converted by 
BYPASS2000, it is expanded to eight digits to be 06101997. However, if the value 
is then returned to the data area, the two extra digits are lost as the data area can 
only hold six digits. 


6.6.12 Migrating from V3R1M1 to V3R1M2 


If you have been converting your applications using V3R1M1 (the previous 
version of BYPASS2000) and you want to upgrade to V3R1M2 and continue with 
further conversions, run the following command: 


BPMGRR2R3 


This command is for BYPASS2000 migration from V3R1M1 TO V3R1M2. This 
command should be run when you are in the environment you want to convert, for 
example, from a command line on the BYPASS2000 menu. This allows you to 
take advantage of the new functions in the new release. 


6.6.13 SST and Concat Functions 


The SST and Concat functions found in logical file definitions are not supported in 
the current version of BYPASS2000. To ensure that BYPASS2000 converts date 
fields that use these functions, it is necessary to perform these steps: 


1. Use the following command to retrieve all of the members that use these 
functions. 


FNDSTRPDM 
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2. Insert them manually using the Work with DDS display: 


Press F6 to create. 

Enter the name of the logical file in the DDS name. 
Enter DDS for Language. 

Enter DDS for Category. 

Press Enter two times. 

Press F3 and your logical file is shown. 


“oe aoop 


3. Seed the logical files. 


4. Propagate and convert. 


SST (substring) is not handled if it is a variable because the value for this variable 
is not known until run time. 
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Appendix A. Interfacing to BYPASS2000 


Impact analysis tools can use the HSDATDFI file to seed (assign) date fields into 
BYPASS2000. At the end of this appendix, it shows how to feed the information in 
HSDATDFI to BYPASS2000. 


A.1 File Description 


Table 15 provides a description of the HSDATDFI file. 
Table 15. HSDATFI Description (Record Length: 135) 


Field name Type Length Field description 

FLDNAME CHAR 30 Field name 

PARENTNAME CHAR 30 Must be blank 

IOAREANAME CHAR 30 /O Area name. Name of Record format or Data Structure of 
which this field is a part. See Note 1. 

SRCNAME Source member name. See Note 2. 

SRCTYPE Source type. DDS, CPY or PGM. See Note 3. 

DTFTYPE ZONED 3,0 Date field type. See Note 4. 

DTYLEN ZONED 1,0 Length of year portion of date. Only valid values are 2 and 
4, 

EXPTYPE CHAR 1 Expansion type. 0 = Expand field. 1 = Do not expand field. 
See Note 5. 

FILTYPE CHAR 4 File type. See Note 6. 

FILNAME CHAR 10 File name 

FLGLOCK CHAR 1 Area to be locked. Y = YES. N = NO. See Note 7. 

PRPTYPE CHAR 1 Propagation type. 0 = Propagate. 1 = Do not propagate. 
See Note 8. 

FLDSSTPOS ZONED 5,0 Field substring start position. See Note 9. 

FLDSSTLEN ZONED 5,0 Field substring length. If not using substring, it should be 
the field length. 

FLGELAB CHAR 1 Internal use only. Set to “N”. 

Notes: 


1. I/O area name 


For file fields, the I/O Area Name is the record format name preceded by an 
asterisk (* ). If the field is contained in a data structure, the I/O Area Name is 
the name of that data structure. If the field does not relate to any data 
structure or record format, the I/O Area Name is the same as the field name. 


2. Source member name 


Libraries and source files to be used are specified to BYPASS2000 by you as 
part of creating the conversion environment. Although multiple source files 
may be specified in each category, BYPASS2000 assumes that the 
combination of source member name and source type is unique. If the 
application to be converted contains multiple members with the same name 
and type, this situation must be corrected before BYPASS2000 analyzes the 
source. 


The Impact Analysis tool should warn the you of this situation. 
3. Source member type 


Do not confuse this with the regular SEU type. This simply identifies to 
BYPASS2000 whether the member represents a program (PGM), file (DDS), 
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or copy member (CPY). Notice that copy members include those used to 
provide a file description for files that are internally described. 


. Date field type 


If you encounter date types that are not in the following list, identify them as 
type 001 (Year) and make the appropriate entries in the substring position and 
substring length fields (FLDSSTPOS & FLDSSTLEN). 


Table 16. Code Description 


Code Short Description 

001 Year Year 

002 YMD Year, month, day 

003 DMY Day, month, year or month, day, year 

004 D-M-Y Day, month, year or month, day, year with separators 

005 Y-JUL Year and Julian day 

006 Month, year 

007 Year, month 

010 Century (for example, the century portion of a CCYYMMDD 
date) 

011 Complement of year 

012 C-YMD Complement of year, month, day 

015 Complement of year, Julian day 

017 Complement of year, month 


. Expansion type 


The normal action of BYPASS2000 is not to extend any dates encountered on 
display files, printer files, or O-specs (they normally have an EXPTYPE of 1). 
You can override this on a field-by-field basis. It is up to the Impact Tool 
vendor to determine if they provide some means for you to control this value 
or if they simply follow BYPASS2000 conventions and allow you to make 
changes to specific fields through the regular BYPASS2000 interface. 


. File type and file name 


Only physical files, program fields and copy fields can be seeded. Fora 
program or copy, you must put SPACES in these fields. For physical files, the 
file type field must be set to PF and the file name set to the name of the file. 
Any logical files using the physical file automatically receives their seeding. 


. Area to be locked 


It is unlikely that you will ever want to set this to anything other than N. If set to 
Y, BYPASS2000 takes it as true that this field can never contain a date. We 
strongly recommend that the lock option not be used by any tools building this 
file. 


. Propagation type 


This option determines whether any field that this field touches is 
automatically considered a date. Normal operation is to propagate the field. 
Therefore, the value should be zero (0). Again, it is unlikely that an impact 
analysis tool would ever need to set any other value. 
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9. Substring start position and length 


If the whole of the field is a date, then the position (FLDSSTPOS) should be 
set to 1 and the length (FLDSSTLEN) set to the length of the field. If the date 
is contained within a larger field, the position should be set to the offset within 
the field and the length to the length of the date. 


For example, if an invoice number is on the database as a single field but 
contains a year and month (for example, format nnnnnYYMM), the following 
two options apply: 


— Seed the full date 
In this case, DTFTYPE is 007, FLDSSTPOS is 6, and FLDSSTLEN is 4. 
— Seed only the year 
In this case, DTFTYPE is 001, FLDSSTPOS is 6, and FLDSSTLEN is 2. 
If the format of the date portion is nnnnnMMYY, then the following two options 
apply: 
— Seed the full date 
In this case, DTFTYPE is 006, FLDSSTPOS is 6, and FLDSSTLEN is 4. 
— Seed only the year 


In this case, DTFTYPE is 001, FLDSSTPOS is 8, and FLDSSTLEN is 2. 


A.2 Loading the Interface File into BYPASS2000 


After BYPASS2000 completes the analysis phase, the interface file can be 
applied. To apply the interface file, follow these steps: 


1. Copy the interface file into the xxxxDB library (where xxxx is your environment 
name). 


2. While in the environment (you have already run the command BP2000 
xxxxDB), run the command BeLoappF1. BYPASS2000 processes the interface 
file. 


You can select option 11 (Import external seeding) from the BYPASS2000 - 
Date-Field Assignment menu as shown in Figure 59 on page 72. Option 11 
runs the BPLOADDFI command. 


3. Now check the conversion log. BYPASS2000 reports any errors encountered 
while loading the file in this log. 


4. Use the field-level assignment options to review the date assignments. 
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Appendix B. Conversion Repository 


The conversion repository is made up of about 75 relational tables that can be 
analyzed using native AS/400 query or SQL. 


Each table contains information relating to certain steps of the conversion 
process. For example, file ANDATFLD contains the information related to the 


fields defined in copybooks and programs for the entire application. 


B.1 Naming Convention 


The naming convention for the files is shown here: 


XX YYY 222 
where, 
XX is the process identifier: 


YYY is the type of activity: 


Z2ZZ is the content identifier: 


FLD 


LIB 


Analysis 
Conversion 
List of Sources 
Work Tables 
Work Tables 


Copy and program analysis 
for BYPASS2000 

SQL/DB2 Databases 
Generic Use 

Parameter Table 


Fields 
Parameters 
Libraries 


B.2 Conversion Repository Files 


If you want to view the contents of a particular file, use Query or SQL for each file 


in library BPxxDB. The tables in the following sections give the description of 


each file and in which phase they are updated or populated. 


B.2.1 Conversion Environment 


Table 17. Create Conversion Environment 
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File Description 

HSDATLIB List of old/new libraries 
HSDATPAR List of all BP parameters 
HSDATSDT List of system date fields 
HSDATTYF List of data types 
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B.2.2 Load AS/400 Database Information 


Table 18. Load AS/400 Database Information 


File 
ANDATFFD 
ANDATDBR 
ANDATDBK 
HSDATSRC 
ANDATFMT 
HSDATROS 
CVERRLOG 


B.2.3 Memory Level Analysis 


Description 

Field file descriptions 
Database relationships 
Database keys 

List of source files 
Database record format 
Object/source relationship 


Analysis/conversion error messages 


Table 19. Analyze DDS (Flag Status = 9) 


File 

ANDATFLD 
ANDATVAL 
HSDATFLS 


HSDATFIL 

HSDATLCK 
HSDATFLD 
CVERRLOG 


Description 
Memory level field definitions 
List of source files with their status 


DIM/MGR/TXT routines generated for each source 
file 


File/COPYBOOK relationship 
Locked I/O areas 
List of date fields 


Analysis/conversion error messages 


Table 20. Analyze Copy (Flag Status = 9 


File 

ANDATFLD 
ANDATVAL 
HSDATFLS 


HSDATFIL 

HSDATLCK 
HSDATFLD 
CVERRLOG 


Description 
Memory level field definitions 
List of source files with their status 


DIM/MGR/TXT routines generated for each source 
file 


File/‘COPYBOOK relationship 
Locked I/O areas 
List of date fields 


Analysis/conversion error messages 
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B.2.4 Seeding 


Table 21. Analyze SQL Table Definition Source (Flag Status = 9) 


File 
ANDATTDF 
ANDATRVT 
ANDATFLD 
ANDATFIL 
HSDATFIL 
HSDATLCK 
HSDATSQL 


CVERRLOG 


Description 

Table definitions 

Relationship between view and table 
Field definitions 

Date field types 

File listing 

Locked areas 

List of SQL files and flag status 


Analysis/conversion error log 


Table 22. Analyze Program (Flag Status = 9) 


File 
HSDATINQ 
HSDATSRC 
ANDATRPC 
ANDATFLD 
ANDATVAL 
ANDATSQI 
ANDATCST 
ANDATRPF 
ANDATPRO 
ANDATQST 
USDATCCR 
ANDATRNM 
ANDATRFF 
ANDATRFA 
ANDATNOE 
USDATPNE 
ANDATNOP 
ANDATCCR 
ANDATVRC 
CVERRLOG 


Description 

Inquiry messages 

List of source files 

Source/COPYBOOK relationships 

Field definitions 

Default for variables 

List of SQL statements 

List of code statements 

Program/file relationships 

Basic relationship between variables 
List of SQL statements 

Caller-Called relationship 

List of field renames in programs 
Internal/external field name relationships 
Relationships between files and IO areas 
Non-expandable areas 

Details on non-expanded areas 

Areas which will not be propagated 
Relationship between caller and called program 
Physical/virtual copy relationships 


Analysis/conversion error log 
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B.2.5 Seeding 
Table 23. Seeding Repository (Flag Status = 9) 


File Description 

HSDATFLD List of date fields 

HSDATDFI Seeding from external interface 
HSDATSDT General seeding 

ANDATFIL List of date types 

HSDATFIL List of files 

HSDATLCK Locked areas 

USDATNOE Details on areas which are not expanded 
HSDATTYD Default date type from HSDATTYF 


B.2.6 Propagation Level Analysis 
Table 24. Analyze Program Date Field Propagation (Flag Status = 9) 


File Description 

ANDATOLR List of all dates found in the programs 
ANDATIPT Inter-program trace 

ANDATOLC List of all dates found in COPYBOOKs 
ANDATPTR Propagation trace 

ANDATNOE Areas which are not to be expanded 
ANDATNOP Areas which are not to be propagated 
ANDATDNA Images of areas related to date fields 
ANDATDFR Origins of all year-sensitive fields 
ANDATFLD Memory field definition 

ANDATFIL List of date fields 

HSDATINQ Inquiry messages 


B.2.7 Conversion 
Table 25. Files from Conversion Phase (Flag Status = 9) 


File Description 
CVDATRPT Report definition 
CVDATRPL Report log 

ANDATFLD Memory field definition 
CVDATCNV Report log 


B.2.8 Files that Contain List of Source 
Table 26. Files Containing Source 


File Name Type SRCTYPE 
HSDATSRC Copy CPY 
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B.2.9 Additional Files 


Table 27. Conversion Repository 


File Name 

ANDATDCL 
ANDATDIZ 
ANDATRPD 


ANDATTRE 
CVDBGLOG 
CVSQLPFM 


HSDBGLOG 


Description 


DCLGEN definitions 
New long-date ref-fields in dictionaries 


Relationship between program and DDS by means of COPY 
DDS 


Guide for messages that have been sent 


USDATFLD 


User’s field information 


Called information 


B.3 Detailed Description of Certain Files 


B.3.1 ANDATCCR 


This section gives more details for some of the files listed in the previous tables. 


BP2000 -Relationship between caller and called program. Here, it is possible to 
find all of the relationships between the connected programs. This table is 
important to run an inter-program between a small part of the programs. 


Table 28 is populated in the analyze program phase. 
Table 28. ANDATCCR 


Field Type Length Dec Domain 

CALLTYPE CHARACTER 10 0 Call Type 
CALLERNAME CHARACTER 10 0 Caller Name 
CALLEDNAME CHARACTER 10 0 Called Name 
PARMPRG PACKED 2 0 Parameter Program 
IOAREANAME CHARACTER 30 0 10 Area Name 
lOAREAPRG PACKED 2 0 10 Area Program 
IOAREASCP PACKED 2 0 10 Area Scope 
FLDDISPL PACKED 3 0 Field Displacement 
FLDNAME CHARACTER 30 0 Field Name 
FLDSCP PACKED 2 0 Field Scope 
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B.3.2 ANDATCST 
Table 29 tracks the program code-statement. It is populated in analyze program 


phase. 
Table 29. ANDATCST 
Field Type Length Dec. Domain 
PGMNAME CHARACTER 10 0 Program Name 
CPYNAME CHARACTER 10 0 Copy Name 
STMTNBR PACKED 4 0 Statement Number 
STMTPRG PACKED 2 0 Statement Program 
STMTSCP PACKED 2 0 Statement Scope 
STMTNAME CHARACTER 16 0 Statement Name 
STMTOPER1 CHARACTER 30 0 Statement Operand 
STMTOPER2 CHARACTER 30 0 Statement Operand 
STMTKWD CHARACTER 10 0 Statement Keyword 
FLELAB CHARACTER 1 0 Elab.Flag, P=Tree of 
Propagation 
N=No Tree of Propagation 
Y=Comput.|nstructions 
FLSIGNIF CHARACTER 1 0 Signif.Flag 
N=No comput.instruct. 
C=Instruc.Compl. 
U=iInstr.USA 
P=Other Data type 
FLCOMPLEX CHARACTER 1 0 Complex flag, Y=Multiple 
Instruction 
FLSENSIT CHARACTER 1 0 Sensitive Flag, Y=Year 
Sensitive (only for COBOL/400) 
NSTMTSTR PACKED 4 0 Start Statement Number 
NSTMTEND PACKED 4 0 End Statement Number 
STMTOPERAZ CHARACTER 10 0 Conversion Statement 
Operation 
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B.3.3 ANDATDBK 


Table 30 tracks database keys. It is populated in load AS/400 database 
information phase. 


Table 30. ANDATDBK (Part 1 of 2) 


Field Type Length Dec. Domain 
APRCEN CHARACTER 1 0 Century Retrieval: 0=20th, 
1=21st 


APRDAT CHARACTER 
APRTIM CHARACTER 


Date Retrieval: YY/MM/DD 


Time Retrieval: 
hour/minutes/seconds 


File 


APFILE CHARACTER 
APLIB CHARACTER 
APFTYP CHARACTER 


Library 


Type of File: P=PF, L=LF, 
R=DDM PF, S=DDM LF 


File Attribute: “PHY or *LGL 


APFILA CHARACTER 
APMXD CHARACTER 
APFATR CHARACTER 


Reserved 


File Attribute: PF, LF, PF38 or 
LF38 


APSYSN CHARACTER System Name (Original System 
if File=DDM) 

APASP PACKED ASP Auxiliary Storage Pool ID: 
1=System ASP 

APRES CHARACTER Reserved 


APMANT CHARACTER Maintenance: |=*IMMED, 
R=*REBLD, D=*DLY 
APUNIQ CHARACTER 


APKEYO CHARACTER 


UNIQUE Keys must be Unique: 
N=No, Y=Yes 


Key Order: L=LIFO, F=FIFO, 
C=FCFO, N=None 


S/O Select/Omit file: N=No, 
Y=Yes 


APSELO CHARACTER 


APACCP CHARACTER Access Path: A=Arrival, 


K=Keyed, S=Shared 


APNSCO PACKED Number of Files Accessed by 
Logical Files 

APBOF CHARACTER 

APBOL CHARACTER 


APBOLF CHARACTER Logical File Format through 
which data is accessed 


Physical File 


Library 
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Table 31. ANDATDBK (Part 2 of 2) 


Field Type Length Domain 

APNKYF PACKED 2 Number of Key Fields per 
Format 

APKEYF CHARACTER 10 Key Field Name 

APKSEQ PACKED 1 DESCEND Key Sequence: 
D=Descending, A=Ascending 

APKSIN PACKED 1 Key Sign Specified: 


N=Unsigned, S=Signed, 
A=AbsVal 


B.3.4 ANDATDBR 


APKZD CHARACTER Zone/digit specified: N=None, 
Z=Zone, D=Integer 

APKASQ CHARACTER 1 ALTSEQ Alternative Collating 
Sequence: N=No, Y=Yes 

APKEYN PACKED 2 0 Key field number: 1= First key 
in format 

APJOIN CHARACTER 1 0 JFILE Join logical file: N=No, 
Y=Yes 

APACPJ CHARACTER 1 0 Access path journaled: N=No, 
Y=Yes 

APRIKY CHARACTER 1 Record type: P=PRIMARY 


U=UNIQUE N=NONE 


Database relationships. This file contains all the information about the 
relationships between files. It is populated in load AS/400 database information 
phase. 


Table 32. ANDATDBR 


Field Type Length Dec. Domain 

WHRTYP CHARACTER 1 0 Type of File: P=PF, L=LF 

WHRFI CHARACTER 10 0 File 

WHRLI CHARACTER 10 0 Library 

WHRMB CHARACTER 10 0 Member 

WHRRD CHARACTER 10 0 Record Format 

WHNO ZONED 5 0 Number of Dependencies 

WHDTM CHARACTER 13 0 Retrieval date and time, 
Century/Date/Time 

WHREFI CHARACTER 10 0 Dependant File 

WHRELI CHARACTER 10 0 Dependant Library 

WHREMB CHARACTER 10 0 Dependant Members 

WHTYPE CHARACTER 1 0 Type of Dependency: D=Data, 
l=Access Path, O=Access 
Path Owner, V=SQL View, C= 
222 

WHJDIL ZONED 2 0 Ordinal number of position in 
the JFILE 

WHJREF ZONED 2 0 JREF reference number 

WHSYSN CHARACTER 8 0 System Name (Original System 
if File=DDM) 

WHCTLN CHARACTER 10 0 Constraint Library 

WHCSTN CHARACTER 260 0 Constraint Name 
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B.3.5 ANDATDFR 


Origin of all the year-sensitive fields that have been discovered. In this file, you 
can find out where the seeding of year-sensitive fields originate. It is populated in 
analyze program date field propagation phase. 


Table 33. ANDATDFR (Part 1 of 2) 


Field Type Length Dec. Domain 

PGMNAME CHARACTER 10 0 Program Name 

SRCTYPE CHARACTER 3 0 Source Type 

SRCNAME 10 0 Source Name 

ISADATE CHARACTER 0 Is it a date? Y=Yes, N=No 

IOAREA CHARACTER 0 10 Area Name 

1OPRG PACKED 0 10 Area Program 

lOoSscP PACKED 0 10 Area Scope 

DTFNAME CHARACTER 0 Propagated Date Field 

DTFSCP PACKED 0 Propagated Date Scope 

DTFDISP PACKED 0 Propagated Date Displacement 

DTFPOS PACKED 0 Propagated Date Position 

DTFTYPE PACKED 0 Propagated Date Type 

DTYLEN ZONED 0 Propagated Year Length 

DTYOFF PACKED 0 Propagated Year Offset 

WINDISP PACKED 0 Propagated Memory Window 
Displacement 

WINLEN PACKED 0 Propagated Memory Window 
Length 

WINDISPBAT PACKED 0 Seed Memory Window 
Displacement 

SRCTYPEBAT CHARACTER 0 Seed Source Type 

SRCNAMEBAT CHARACTER 0 Seed Source Name 

IOAREABAT 30 0 Seed |O Area Name 

lOPRGBAT PACKED 2 0 Seed IO Area Progressive 

lOSCPBAT PACKED 2 0 Seed I|O Area Scope 

DTFNAMEBAT CHARACTER 30 0 Seed Date Field 

DTFSCPBAT 2 0 Seed Date Scope 

DTFDISPBAT PACKED 3 0 Seed Date Displacement 

DTFPOSBAT PACKED 3 0 Seed Date Position 

DTFTYPEBAT PACKED 2 0 Seed Date Type (how the field 
was discovered) 

Table 34. ANDATDFR (Part 2 of 2) 

Field Type Length Dec. Domain 

DTYLENBAT ZONED 1 0 Seed Year Length 

DTYOFFBAT PACKED 3 0 Seed Year Offset 

STEPNBR PACKED 3 0 Distance from Seed 

ORITYPE CHARACTER 30 0 Seed Type 

FLPROPAG CHARACTER 1 0 Propagation Flag: 
W/Y/M/E=Yes, C/D=No 
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B.3.6 ANDATDNA 


Table 35 tracks the I/O areas related to date fields. It is populated in analyze 
program date field propagation phase. 


Table 35. ANDATDNA 


Field Type Length Dec. Domain 

PGMNAME CHARACTER 10 0 Program Name 
IOAREANAME CHARACTER 30 0 10 Area Name 
IOAREAPRG PACKED 0 10 Area Program 
IOAREASCP PACKED 0 10 Area Scope 
IMAGESTART PACKED 0 Image Start 

IMAGELEN PACKED 0 Image Length 
IMAGEDNA CHARACTER 0 Image DNA (not visible) 
IMAGEPRG PACKED 0 Image Program 
EMPTYREC PACKED 2 0 Empty Records 
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B.3.7 ANDATPTR 


Table 36 tracks the BYPASS2000 propagation trace. This file lists all the from and 


to fields affected by propagation. It is populated in analyze program date field 


propagation phase. 
Table 36. ANDATPTR 


Field Type Length Dec. Domain 

PGMNAME CHARACTER 10 0 Program Name 
FROMIOAREA CHARACTER 30 0 From 1O Area Name 
FROMIOPRG PACKED 2 0 From |O Area Program 
FROMIOSCP PACKED 2 0 From 1O Area Scope 
FROMNAME CHARACTER 30 0 From Field Name 
FROMFLDSCP PACKED 2 0 From Field Scope 
FROMDISPL PACKED 3 0 From Field Displacement 
FROMFLDLEN PACKED 3 0 From Field Length 
FROMDTFLD CHARACTER 30 0 From Data Field 
FROMDTSCP PACKED 2 0 From Data Scope 
FROMDTDISP PACKED 3 0 From Data Displacement 
FROMDTPOS PACKED 3 0 From Data Position 
FROMDTLEN PACKED 3 0 From Data Length 
FROMDTTYPE PACKED 2 0 From Data Type 
FROMDTYLEN ZONED 1 0 From Year Length 
FROMDTYOFF PACKED 3 0 From Year Offset 
TOIOAREA CHARACTER 30 0 To 10 Area Name 
TOIOPRG PACKED 2 0 To 1O Area Program 
TOIOSCP PACKED 2 0 To 1O Area Scope 
TONAME CHARACTER 30 0 To Field Name 
TOFLDSCP PACKED 2 0 To Field Scope 

TODISPL PACKED 3 0 To Field Displacement 
TOFLDLEN PACKED 3 0 To Field Length 
TODTFLD CHARACTER 30 0 To Data Field 

TODTSCP PACKED 2 0 To Data Scope 
TODTDISP PACKED 3 0 To Data Displacement 
TODTPOS PACKED 3 0 To Data Position 
TODTLEN PACKED 3 0 To Data Length 
TODTTYPE PACKED 2 0 To Data type 

TODTYLEN ZONED 1 0 To Data Year Length 
TODTYOFF PACKED 3 0 To Year Offset 
FLPROPAG CHARACTER CHARACTER 1 0 Propagation Flag: Y=Yes, 
1 0 Propag. Flag; l=Incongruences, B=Seeded 
Y=yes, 

l=incongruences, 

B=seeded 


For problem determination purposes, you may require more detailed information 
on some other files from the BYPASS2000 conversion repository. You can obtain 
this file from the Web site at: http://www.redbooks.ibm.com/ 


From the navigation bar on the left, click Additional Materials. Follow the 
instructions on the page that appears to access the list of available down loads. 
In the list of folders on the right, click SG242156. 
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From there, you can download the following three files: 


¢ README.TXT — This file contains the instructions for loading the save file on 
to the AS/400 system. 


¢ BPASSQRY.SAV — This is a save file containing some BYPASS2000 queries 
to help you view the information in your conversion repository tables. 


¢ REPFILES.LWP — This Lotus WordPro document contains the details of all 
the BYPASS2000 repository files. 


After you have restored the library from the save file, add xxxxDB (your 
conversion database library) to your library list. You can access the queries 
through menus using the following commands: 


¢ Type co BPENVI for the Environment Reports. 

¢ Type Go BPANAL for the Analysis Reports. 

* Type Go BPSEED for the Seeding Reports. 

¢ Type co Bpprop for the Propagation Reports. 

¢ Type co Bpconv for the Conversion Reports. 

¢ Type Go BPREPORT for access to all the preceding menus. 
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Appendix C. BYPASS2000 Markers 


The following markers can be found in file HSDATPAR in library xxxxDB and are 
inserted in the converted source code to indicate where BYPASS2000 has made 
modifications. 


Table 37. BYPASS2000 Markers 


RPG Marker COBOL Marker Description 


B2??? BP2??? Identifies instructions that cannot be converted by 
BYPASS2000 and marks the existence of an incongruence 
between the two areas involved in the instruction. For 
example, one instruction can contain a date field whereas 
another does not contain a date field due to previously 
discovered limitations. 


B2000 BP2000 Marks an instruction that involves areas or date fields but 
does not need to be changed. The lengthening of the 
year-related information in both data fields involved is 
sufficient to handle century data. This marker can also 
refer to instructions that involve figurative constants. 


B2CHK BP2CHK Marks potential conceptual problems in the conversion of 
the instruction. BYPASS2000 has determined that the 
instruction involves date fields. You must check the logic 
of the converted code. 


B2CPY BP2CPY Marks the point where copies have been inserted in the 
program. The copybooks contain the instructions for 
adding/removing the century and the relevant work areas. 


B2MOD BP2MOD Marks instructions that modify the data definition. 

B2NEW BP2NEW Marks lines of codes that have been added for 
adding/removing the century information. 

B20LD BP20LD Marks the lines of code that have been commented out 
and replaced by new code to add/remove century 
information. 

B2REM BP2REM Marks comments that signal the beginning and end of new 
lines of code and information for highlighted conversion 
problems. 

B2TRC BP2TRC Marks instructions in which normal truncation of the 


numeric field type is used to remove century information. 


B2VFY BP2VFY Marks instructions that BYPASS2000 has changed based 
on parameters shown in BPPARM or based on the type of 
operation. You must verify these instructions. 


B2INF BP2INF Marks information for the user (for example, after a 
B2CHk). 
B2LEA BP2LEA Marks an instruction that involves a leap year calculation. 
BP2SHF Marks lines of code that have been added for shifting 


century information. 


BP2OUT Marks lines of code in which a year-sensitive field is 
right-truncated in a non-year sensitive field. 
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Appendix D. BYPASS2000 Messages 


The following messages can be found in either Check Request Information or the 
conversion log. 


Table 38. BYPASS2000 Error Messages (APG0002 - BAP2004) 


Message ID Sev. Message Text Definition 


APGO0002 
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APGO0026 


BAP2001 


BAP2002 


BAP2003 


BAP2004 


Copy &1 not found in the scheduling 
file 


The requested program &1 has not 
been scheduled for analysis. 


File & record not found for internal 
name &1 on key-field &2. 


External key not found for file &1 rec 
&2 seq &3 on key-field &4. 


Internal field-name not found for 
key-field &1 file &2 rec &3. 


Missing internal key-field name 
assumed as external one &1 in file 
&2 rec &3. Possible dates will not be 
propagated. 


A program calls a copy not included 
in the scheduling file; the user has to 
insert the copy source in the file 
QCPYSRC. 


The analysis of a program has been 
attempted (more than once) without 
deleting the previous analysis. 


This message is displayed after the 
analysis when BYPASS2000 finds a 
statement containing a file and a key 
but it cannot find the corresponding 
file and record in its libraries. 


This message is displayed after 
analysis. BYPASS2000 is unable to 
find the correct link between file key 
fields and external keys, for example, 
a difference between file key number 
and external key number. The user 
should check these keys. 


It is displayed after analysis phase 
when a logical file contains a 
statement CONCAT and the key field 
does not belong to the list of fields of 
the logical file but is included in the 
CONCAT operation code 
BYPASS2000 is unable to create a 
relationship between the program 
key fields and the file key fields. The 
solution to avoid loss of propagation 
is to seed the program's date key 
fields referred to KLIST 


It is displayed after analysis phase 
when a logical file contains a 
CONCAT statement and the key field 
does not belong to the list of fields of 
the logical file but is included in the 
CONCAT operation code. 
BYPASS2000 is unable to create a 
link between the program key field 
and file key field. The solution (to 
prevent any propagation loss) is to 
seed the programs date key field 
teferrad to FACTOR-1. 
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Table 39. BYPASS2000 Error Messages (BAP2005 - BPA0001) 


Message ID 
BAP2005 


BAP3001 


BCAOO01 


BFCoO02 


BFPOOO1 


BFPOOO2 


BFPOOO4 


BFPOOOS 


BFPOOO7 


BFPOOOS 


BPAQO01 


Sev. 


Message Text 


Substring in CVTDAT parameters not 
handled. 


Warning! Found complex &1 
expression at statement &2. 
Handling ended after first element. 


The requested copy &1 has not been 
scheduled for analysis. 


File &1 already scheduled for 
routines generation. 


Field not defined: program &f, I/O 
area name &2, I/O area prg. &3, field 
disp. &4. 


More than 1024 date fields found for 
&1 file &2. Not handled. 


VO area name not found for file &2 in 
program &1. 


No fields found containing the 
following date field: source &1, I/O 
area name &2, prg. &3, field displ. 
&4, length &5. 


More than one record format found 
for &4 file &3. Unable to load date 
fields for /O area &2 of program &1. 


More than one logical area for I/O 
area &2 of program &1. Unable to 
load date fields for &3 file &4. 


More than 32767 statements found 
for source &1, Not handled. 
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Definition 

This message is found in the display 
conversion log after the analysis of a 
CLP program which contains a 
statement with a sub-string In 
CVTDAT. BYPASS2000 is unable to 
handle this kind of statement. 


This message is displayed after the 
analysis phase. It warns the user 
that BYPASS2000 has found a 
complex expression, for example, a 
CHGVAR in a CLP program. 
BYPASS2000 is unable to handle this 
type of complex expression. 


The user has performed (more than 
once) the analysis of a copy without 
deleting the previous analysis. 


The user has performed (more than 
once) the creation of migration 
routine of a file without setting the 
Migration Flag to <0>. 


Check the definition of that field; it 
may be in a file or copy that is not 
present or not analyzed. 


BYPASS2000 has found a file where 
the user has seeded more than 1024 
date fields. BYPASS2000 cannot 
handle this situation. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
Programs, It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This is a multi-format file. If some 
fields inside one format are 
year-sensitive, they need to be 
seeded. 


This program contains one or more 
multi-format files. Declare it in a 
copy, assign I/O area to related file, 
and assign record type for related 
VO area. 


This message is displayed when the 
user tries to call a source program 
{with option | or O in the inventory 
file) that has more than 32767 
statements. 


Table 40. BYPASS2000 Error Messages (BPA0002 - BPA0037) 


Message ID 
BPA0002 


BPAOO12 


BPAOOTS 


BPA0020 


BPA0021 


BPA0022 


BPA0023 


BPA0024 


BPA0032 


BPA0036 


BPA0037 


Message Text 


Field not defined: source type &1, 
source name 4&2, I/O area name &3, 
field name &4. 


Unknown structure instruction on 
statement &1, instruction &2. 


More than one field &1 found in 
program &2. 


Some problem found with the 
displacement of the field &1. 


More than 256 different prg. found for 


field &2 in I/O area &1. 


Definition 


Check the definition of that field; it 
may be in a file or in a copy that is 
not present or analyzed. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored, 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


ieee ees man 
&1. 


Maximum number of !0-Area 


progressive reached for |O-Area: &1, 


Splitting skipped. 


Field not defined: source type 41, 
source name 4&2, I/O area number 
&3, field number &4. 


No field definition found in &1 &2. 


Dynamic linking found. Use “Work 
with dynamic call” to assign values. 


Program analysis ended because of 
some message on user inquiry. Use 
the “Check Requested Information” 

function and run analysis again. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


Check the definition of that field; it 
may be that the field is in a file or 


copy that is not present or analyzed. 


In this program, there are no field 
definitions. This message is for 
information only. 


For “Additional user information” at 
memory level, you need to specily 
which are the called programs and 
their parameters. 


There are messages in “Check 
Requested Information” for this 
program. These messages need to 
be checked and the phase deleted 
and re-run to continue, 
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Table 41. BYPASS2000 Error Messages (BPA0039 - BPC0007) 


Message ID 
BPAQO39 


BPAO040 


BPA0047 


BPAO048 


BPAO049 


BPAOOS1 


BPAOOS2 


BPAQ450 


BPCO005 


BPCOO07 


Sev. 


Message Text 


Duplicated key for I/O area nbr &1 
field nbr &2, 


Unknown propagation effects for: 
Source Type: &1, Source Name: &2, 
Statement &3, Instruction &4. 


Source &2 (&1) not found in the 
scheduling file. 


Duplicate key: source name &2 (&1), 
VO area nbr &3, I/O area prg &4, 
field nbr &5. 


Field not defined: source name &2 
(&1), YO area name &3, prg &4, field 
hame &S, displ &6. 


Duplicate key: source &1 (&2), I/O 
area nbr &3, field nbr &4. 


Duplicate key: source name &2 (&1), 


VO area name &3, I/O area scope &4. 


File &1 in library &2 ignored. 
Previously analyzed in library &3 
with the same name. 


An error occurs in retrieve routine 
hame for file &1 &2. 


No copy relation for FILE &1 &2. 
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Definition 

This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


The converted code could have some 
problems. If there are date fields 
involved in this instruction, seed 
them, 


This is a message that appears after 
the analysis phase. It is a warning 
that BYPASS2000 has found a COPY 
that has not been loaded in the 
inventory file. The user needs to 
load it in the inventory file and 
analyze it. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


Check the definition for the field; it 
could be contained in a file or copy 
that is not present or analyzed. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs, It does not require any 
user intervention and can be 
ignored. 


The same file is found in different 
libraries, BYPASS2000 will not allow 
this situation, Put the file in only one 
library. 


This message appears when 
BYPASS2000 tries to create DIM, 
MIGR, or TST routines but it is 
unable to find the routine. The user 
should check the file HSDATFAN. 


This message appears when 
BYPASS2000 tries to create DIM, 
MIGR, or TST routines but is unable 
to find a link between the file and 
copy, The user should check the file 
HSDATFIL, 


Table 42. BYPASS2000 Error Messages (BPC0010 - BPP0002) 


BPCO010 


BPC0410 


BPCO411 


BPCO412 


BPC0413 


BPC0414 


BPCO0415 


BPM2001 


BPM2002 


BPPOO01 


BPPOO002 


Message ID Sev. 


Message Text 


Found problems processing 
statement &1, instruction &2. 
Conversion might be unreliable. 


Unable to retrieve source output 
information for routine &1, type &2, 
language &3. 


Unable to retrieve source member 
for file &1. 


Unable to retrieve source input 
library for file &1. 


Variable &1 not found. 


Enlarged temporary field not found. 


Source Library not found file’s 
OVERRIDE executed in *LIBL. Check 
the library list. 


New Object Library not found, File’s 
OVERRIDE executed in "LIBL. Check 
the library list. 


Field not defined: pgm &1, I/O area 
&2, \/O area prg. &3, field &4, field 
displ. &5, field scope &6, 


Definition 

This message appears when 
BYPASS2000 finds an SQL statement, 
for example, a statement ina 


program where a cursor does not 
correspond to a FETCH statement. 


This is a conversion problem. It 
could be that a DDS Is not present in 
the file HSDATROS - this needs to be 
checked. 


It could be there is no source 
member for this file, so it needs to 
be loaded and analyzed. Or, it could 
be that the name of the object is 
different from the source so you 
need to assign object/source relation 
in ‘Set conversion environment’. 


It could be that there is an error in 
compiling source input libraries in 
"Set Conversion Environment” - this 
needs checking. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This appears when BYPASS2000 
finds a lot of IF, OR statements, and 
it does not have enough temporary 
fields to use. The user should check 
the program. 


This message appears after the 
creation of MIGR or TST dispatcher. 
BYPASS2000 cannot find the name of 
the source library in HSDATLIB. Add 
the name of the source library. 


This message appears after the 
creation of MIGR or TST dispatcher. 
BYPASS2000 cannot find the name of 
the New Objects library in 
HSDATLIB. Add the name of the 
source library. 


Check the definition of that field. It 
could be that it is defined in a file or 
in a copy that is not present or 
analyzed. 


The requested program &1 has not It is necessary to run the analysis 
been analyzed. before the propagation. 
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Table 43. BYPASS2000 Error Messages (BPP0003 - BPP0015) 


Message ID 
BPPO003 


BPPO004 


BPPOOOS 


BPPOOO07 


BPPOOOs 


BPP0010 


BPPOO11 


BPPOO12 


BPP0013 


BPP0014 


BPPO01S 


Sev. 


Message Text 


The requested program &1 has not 
been scheduled for date field 
propagation analysis. 


Field found more than once: pgm &1, 
\/O area &2, I/O area prg. &3, field 
&4, field displ. &5, field scope &6. 


Duplicate key: pam &1, I/O area &2, 
VO area prg. &3, field &4, field displ. 
&5, field scope &6. 


Invalid internal or external 
parameter: type &1, caller &2, called 
&3, parmprg &4. 


Conversion problem between &1 and 
&2 variables. 


Field not propagated: type &f, caller 
&2, called &3, parmprg &4, I/O area 
&5, field &6. 


The requested program &1 has not 
been scheduled for conversion. Date 
field propagation not found. 


Field related with a non-propagated 
field IOAREA: &1, IOAREAPRG: &2, 
FLDNAME &3. 


Propagation trae too deep. 


Program &1 ran for &2 sec, 


Propagation tree too big. 


AS/400 Applications: IBM Year 2000 Tools Tips and Techniques 


Definition 
It is necessary to run the analysis 
before the propagation. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message should be removed 
from the CVALOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 


This message appears after the 
propagation when BYPASS2000 has 
found an incongruence between 
parameters passed from caller and 
called programs. The user should 
check the program code. 


This message is displayed after a 
program conversion when 
BYPASS2000 finds two variables with 
attributes that are not compatible. 


The caller program called more than 
one program and so the date field 
information on parameters passed is 
not propagated. If one or more 
parameters are date fields, it is 
necessary to seed them in called 
programs. 


It is compulsory to run the 
propagation throughout to status 
<9> to do the conversion. 


The field is related with a field 
seeded with “Propagation with 
Confirm”. If it is a year-sensitive 
field, it needs to be seeded. 


The propagation tree has too many 
levels, the default is 10. After the 
10th level, there are other dates. 
More seeding is required. The 
message shows the last field in the 
tree. 


This message is displayed after the 
propagation of a program. itis a 
warning that the propagation of this 
program has reached the maximum 
elapsed time for a single program 
propagation, 


The propagation tree is too large. 
More seeding is required. The 
message shows the last field used. 


Table 44. BYPASS2000 Error Messages (BPP0016 - BPP0034) 


Message ID Sev. Message Text Definition 

BPPOO16 Elementary field not found in |-O area This message should be removed 
&2 prg. &3 scope &4 in position from the CVRLOG because it is an 
&5-&6 (Caller pam &1). internal check on BYPASS2000 

programs. It does not require any 
user intervention and can be 
ignored. 

BPP0017 Program ended because of some There are messages in “Check 
unanswered message on user Requested Information” for this 
inquiry. program. These messages need to 

be checked, the phase deleted, and 
rerun to continue. 

BPP0019 Field not defined: Pgm. &1, Field &2. This appears after the propagation or 

conversion of pgm &1 when 
BYPASS2000 cannot find where &2 
field is defined. The most likely 
cause of this message is a file not 
available in the old object library, or 
a file is not analyzed, 

BPP0020 Field found more than once: Pgm. &1, This message should be removed 

Field &2. from the CVRLOG because it is an 
internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 

BPPoO21 Copy not propagated because of too This message should be removed 
many date fields. from the CVRLOG because it is an 

internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored, 

BPPOO23 Record type for &1 file &2 not When a multi-format file is defined, it 
assigned. Program date field is compulsory to assign the record 
propagation analysis cannot be run. type before running the propagation. 

BPP0028 Elapsed time of &1 phase was &2 The available elapsed time is ended 
sec. The processing was stopped. before the phase is terminated. 

Delete the phase and rerun. 

BPPOO31 Data type &1 invalid for field &2 of Find the right data type and 
VO area &3. remember that it is not possible to 

sub-string packed fields. 

BPPOO32 Year length &t invalid for field &2 of Set the correct year length. 

VO area &3. 

BPPOO33 Field not found: I/O area &2, parent No definition for fields are found; this 
name &3, field &1. could be a problem so it needs to be 

checked. 

BPP0034 Field found more than once: I/O area This message should be removed 
&2, parent name &3, field &1. from the CVRLOG because it is an 

internal check on BYPASS2000 
programs. It does not require any 
user intervention and can be 
ignored. 
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Table 45. BYPASS2000 Error Messages (BPU0001 - CVR2016) 


Message ID 
BPUOO01 


ccyooo1 


ccyoa0s 


CPG0001 


CVRO001 


CVRO003 


CVRO004 


CVR2001 


CVR2015 


CVR2016 


Sev. 


Message Text 


File &1 not available, 


The requested copy &1 has not been 
scheduled for conversion. 


The requested copy &1 has not been 
scheduled for conversion. Analysis 
not found. 


The requested program &1 has not 
been scheduled for conversion. 


Field &1 is not a date or year. 


Assumed as extraction of part (not 
containing year) of a date-field. 


Assumed as update of a date-field in 
its not-containing-year zone. 


Converted code may contain 
conceptual errors, check code. 


Field &1 has been enlarged. Check 
output for possible and incorrect 
overlapping or shifting of fields. 


This statement involves 
year-sensitive fields already enlarged 
or preceded by century. The century 
usage could not be determined. 


AS/400 Applications: IBM Year 2000 Tools Tips and Techniques 


Definition 


This message is displayed after the 
analysis when a program contains a 
file or a DS externally described that 
is not available in the old object 
library. 


The user has performed (more than 
once) the conversion of a file or a 
copy when the conversion flag is not 
<O0>. 


The user tried to convert a copy that 
has not been analyzed yet. Analyze 
the copy; then run conversion again. 


The propagation phase must reach 
<9> before running the conversion. 
It is likely that the user has run the 
conversion of this program before 
the end of the propagation phase. 


This is a warning message. During 
the conversion, BYPASSP2000 has 
not modified the previous statement 
because this field is not 
year-sensitive. The user should 
check the converted code. 


This is a warning message. 
BYPASS2000 has discovered, during 
the propagation, that the field 
involved in the statement is not a 
year so it has not modified the code 
during the conversion. 


This message appears in the 
converted code of a program. Itis a 
warning that the field in the 
statement does not contain a year. 


BYPASS2000 has done the 
conversion of the statement but the 
user is required to check if the 
statement was correctly converted 
due to the presence of a line of code 
that can cause conceptual errors (IF, 
COMP, ext). 


A field that is present in a specific O 
has been enlarged. It is possible 
that this field overlaps another field 
with known effects. The user should 
check the output carefully. 


This is a warning message; 
BYPASS2000 has converted the 
preceding statement but it is not 
sure that this type of conversion is 
correct because it does not follow 
the logic of the program. 


Table 46. BYPASS2000 Error Messages (CVR3005 - CVR5007) 


CVR3005 


CVR3009 


CVR3010 


CVR3012 


CVA3013 


CVA3016 


CVR5002 


CVASO06 


CVAS007 


Message ID Sev. 


Message Text 


Converted code may not work 
properly; check code. 


&1 file &2 must be converted 
because field &3 is shared by name 
with other database fields that need 
to be expanded. 


&1 file &2 must be converted 
because field &3 {and others) are 
shared by name with other database 
fields that need to be expanded. 


Field &1 has more than one year 
inside. 


Field &1 contains a year but does not 
have a standard date-type. 


Found more than one format with a 
field originally ending at position &2 
in file &1, Please check, 


Mismatch between date-field type of 
operand, 


The converter tool cannot handle 
add/remove century between fields 
&1 and &2 for key-field usage. 


The converter tool cannot handle 
add/remove century to adjust 
comparison of &1 with &2 into a DO 
loop. 


Definition 

This is a warning message displayed 
in the converted code usually after a 
ADD/REM routine or a SHIFT routine 
when the date type of the fields 
involved in the statement are 
different. BYPASS2000 warns the 
user to check the converted code. 


Field &3 will be enlarged because it 
is in DB. If this field does not need 
to be enlarged, change its name with 
a name that is not shared with DB. 


Field &3 (and others) will be 
enlarged because they are in DB, If 
they do not need to be enlarged, 
change their names with other 
names not shared with DB. 


BYPASS2000 is not able to convert 
this statement because the field or 
the data structure is too large (more 
than 10 digit) or because during the 
propagation, it has discovered that 
the field contains a year in more 
than one position. 


BYPASS2000 converter inserts this 
message in the converted code of a 
program when it finds a field that 
contains a non-standard date type 
(the user can find a standard date 
type in “Set conversion 
environment”, then "Work with Field 
Type”). 


This message is displayed in the 
converted code when BYPASS2000 
has found more than one field that 
ends at a particular position. 
Generally, this happens because 
BYPASS2000 has enlarged some 
fields included in an O-Spec shifting 
all the others. The user must check 
that the conversion works. 


This is inserted in the converted 
code when an incongruence has not 
been solved, The user should find 
the cause of this incongruence 
(possibly wrong seeding or 
propagation problems) to establish if 
the converted code is correct. 


This is a BYPASS2000 conversion 
limitation; manual handling is 
required for this line of code. 


This is a BYPASS2000 conversion 
limitation; manual handling is 
required for this line of code. 
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Table 47. BYPASS2000 Error Messages (CVR5008 - HM10034) 


Message ID 
CVR5008 


CVRS5011 


CVR5014 


CVR5015 


CVRS5016 


CVRS017 


CVR5016 


HDSoo01 


HDS0002 


HDS0003 


HMI0034 


Sev. 


Message Text 


The converter tool cannot handle 
op-code &1 involving not expanded 
and expanded date fields requiring 
add/remove century. 


Field &1 is generic. 


Field &1 has been enlarged so 
EDTCDE and EDTWRD are no longer 
valid. 


Field &1 has been enlarged while file 
area &2 remains unchanged. 


File area &1 has been enlarged while 
field &2 remains unchanged. 


The conversion tool cannot handle 
constant values being added to or 
subtracted from an expanded date 
field. 


The array has been enlarged but the 
converter tool cannot change values 
of compile-time arrays at the end of 
the program. 


Internal error in routine &1. 


Error during creation of USER INDEX 
&1. 


Wrong LOG logging parameters: 
name of affected program not 
specified. 


The 1st word of string &3 of source 
&2 is longer than expected. 
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Definition 


This is a BYPASS2000 conversion 
limitation; manual handling is 
required for this line of code. 


Field &1 receives more than one 
date format. Please check and seed. 


Informational Message 


A field seeded or propagated as 
year-sensitive to be expanded is 
present in an O-spec in a position 
corresponding to an area not 
expanded by BYPASS2000 because 
on the file of output in that position, 
there is a field seeded as date not to 
be expanded. The user must check 
the file because BYPASS2000 cannot 
remove the century from an output 
statement. 


A field seeded or propagated as 
year-sensitive not to be expanded is 
present in an O-spec in a position 
corresponding to an area expanded 
by BYPASS2000 because on the file 
of output in that position, there is a 
fleld seeded as date to be expanded. 
The user must check the file because 
BYPASS2000 cannot remove the 
century from an output statement. 


This is a BYPASS2000 conversion 
limitation; manual handling is 
necessary for this line of code, 


The converter has found a 
compile-time array seeded by the 
user or propagated as standard date 
type and has enlarged it but advises 
the user to manually modify the 
values that the array assumes during 
compile time. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


Table 48. BYPASS2000 Error Messages (HMI0038 - SECO002) 


Message ID 
HMI0038 


HMI0040 


HMIO051 


HMI0073 


HMIO0074 


NPGOO04 


OBJ0001 


OBJO007 


OBJ0012 


SECO0002 


Message Text 
No word could be found in string &3 
of source &2. 


Name of copy &2 not found within 
string &3 of program 4&1. 


Extension &4 not applicable to string 
&3 in program &2. 


Due to a lack of space, string &2 in 
source &1 could not be modified. 


Word &3 could not be found in string 
&2 of source At. 


Line of pgm &1 has been truncated in 


wrong type: &2. 


Library &1 not found. 


Library &1 specified more times. 


Library &1 is not valid. 


Authorization violation, 


Definition 
This is a rare error message. 


implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message, 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message, 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems 
should contact IBM support. 


This is a rare error message. 
implies unforeseen problems. 
should contact IBM support. 


This message appears when 
BYPASS2000 finds a discrepancy 
between the AS/400 serial number 
where it has been installed and the 
AS/400 serial number that the user 
has conveyed to IBM when the 
enabling code has been required. 
You also see this message if you 
have failed to enter your software 
key (BPPR). You can obtain your 
license key by faxing HAL your 
AS/400 serial number. 
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Appendix E. IBM SmoothStart Service for BYPASS2000 


IBM SmoothStart services are installation services designed to help accelerate 
the productive use of your IBM solution. You can use these services for IBM or 
non-IBM hardware and software, or just software. When you leverage 
SmoothStart for your business, you are getting a more complete solution and 
freeing up your valuable time to spend on revenue-generating activities. 


SmoothStart delivers: 


¢ Project management 

¢ Installation planning 

¢ Software installation 

¢ Software configuration 

¢ SmoothStart installation record 

¢ Skills transfer 

¢ Operational customization (optional) 


Each time you engage IBM to perform SmoothStart Services, these services can 
be delivered to you at a very competitive price. If you have special needs, we can 
work with you to address those requirements in a customized solution. 


Our SmoothStart Services advance the commitment by IBM to provide you with 
need-driven, flexible support for your information systems to help you reach your 
business goals. 


E.1 Customized Installation Service 


IBM SmoothStart Service for BYPASS2000 for AS/400 is your quick start in 
preparing your applications for the next millennium. An IBM services specialist 
assists with the installation of BYPASS2000. This is a tool that converts AS/400 
application dates to handle the year 2000, requiring a minimal amount of manual 
intervention. When you contract for this on-site service, you designate one or two 
staff representatives to work approximately forty hours with a highly trained IBM 
services specialist. This specialist assists and prepares your staff to start the 
BYPASS2000 conversion on your AS/400 system. 


After installation, the BYPASS2000 tool analyzes and converts your specific 
application that uses dates in its programs, updating all two-digit year fields to 
handle a four-digit format. 


Note: BYPASS2000 for AS/400 (5697-C20) is a prerequisite for this service. 


E.2 For More Information 


For more information about the IBM SmoothStart Service for BYPASS2000 for 
AS/400, please visit the Web site at: 
http://www.as.ibm.com/ 


Then, select your country. 
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Appendix F. AS/400 BYPASS2000 Education 


The following course is available in the U.S.A. It may not be available in all IBM 
centers worldwide. Contact your local IBM Sales Office for more details on IBM 
Education offerings. 


Or, you can start on the Web site at: http://www-3.ibm.com/services/learning/ 


Choose your country, and then search for BYPASS2000 to find AS/400 
BYPASS2000 Workshop [S6107]. 
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Appendix G. Special Notices 


This publication is intended to help AS/400 applications use IBM Year 2000 
products. The information in this publication is not intended as the specification of 
any programming interfaces that are provided by BYPASS2000 V3R1M2 
(Program 5697-D11). See the PUBLICATIONS section of the IBM Programming 
Announcement for BYPASS2000 V3R1M2 (Program 5697-D11) for more 
information about what publications are considered to be product documentation. 


References in this publication to IBM products, programs or services do not imply 
that IBM intends to make these available in all countries in which IBM operates. 
Any reference to an IBM product, program, or service is not intended to state or 
imply that only IBM's product, program, or service may be used. Any functionally 
equivalent program that does not infringe any of IBM's intellectual property rights 
may be used instead of the IBM product, program or service. 


Information in this book was developed in conjunction with use of the equipment 
specified, and is limited in application to those specific hardware and software 
products and levels. 


IBM may have patents or pending patent applications covering subject matter in 
this document. The furnishing of this document does not give you any license to 
these patents. You can send license inquiries, in writing, to the IBM Director of 
Licensing, IBM Corporation, 500 Columbus Avenue, Thornwood, NY 10594 USA. 


Licensees of this program who wish to have information about it for the purpose 
of enabling: (i) the exchange of information between independently created 
programs and other programs (including this one) and (ii) the mutual use of the 
information which has been exchanged, should contact IBM Corporation, Dept. 
600A, Mail Drop 1329, Somers, NY 10589 USA. 


Such information may be available, subject to appropriate terms and conditions, 
including in some cases, payment of a fee. 


The information contained in this document has not been submitted to any formal 
IBM test and is distributed AS IS. The information about non-IBM ("vendor") 
products in this manual has been supplied by the vendor and IBM assumes no 
responsibility for its accuracy or completeness. The use of this information or the 
implementation of any of these techniques is a customer responsibility and 
depends on the customer's ability to evaluate and integrate them into the 
customer's operational environment. While each item may have been reviewed 
by IBM for accuracy in a specific situation, there is no guarantee that the same or 
similar results will be obtained elsewhere. Customers attempting to adapt these 
techniques to their own environments do so at their own risk. 


Any pointers in this publication to external Web sites are provided for 
convenience only and do not in any manner serve as an endorsement of these 
Web sites. 


Any performance data contained in this document was determined in a controlled 
environment, and therefore, the results that may be obtained in other operating 
environments may vary significantly. Users of this document should verify the 
applicable data for their specific environment. 
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Reference to PTF numbers that have not been released through the normal 
distribution process does not imply general availability. The purpose of including 
these reference numbers is to alert IBM customers to specific information relative 
to the implementation of the PTF when it becomes available to each customer 
according to the normal IBM PTF distribution process. 


The following terms are trademarks of the International Business Machines 
Corporation in the United States and/or other countries: 


AFP AS/400 

AT COBOL/400 
CT DB2 

DRDA IBM ® 
OS/400 RMF 
RPG/400 RS/6000 
SmoothStart SP 
System/38 System/390 
XT 400 


The following terms are trademarks of other companies: 


C-bus is a trademark of Corollary, Inc. in the United States and/or other countries. 


Java and all Java-based trademarks and logos are trademarks or registered 
trademarks of Sun Microsystems, Inc. in the United States and/or other countries. 


Microsoft, Windows, Windows NT, and the Windows logo are trademarks of 
Microsoft Corporation in the United States and/or other countries. 


PC Direct is a trademark of Ziff Communications Company in the United States 
and/or other countries and is used by IBM Corporation under license. 


ActionMedia, LANDesk, MMX, Pentium and ProShare are trademarks of Intel 
Corporation in the United States and/or other countries. 


UNIX is a registered trademark in the United States and/or other countries 
licensed exclusively through X/Open Company Limited. 


SET and SET logo are trademarks owned by SET Secure Electronics Transaction 
LLC 


Other company, product, and service names may be trademarks or service marks 
of others. 
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Appendix H. Related Publications 


The publications listed in this section are considered particularly suitable for a 
more detailed discussion of the topics covered in this redbook. 


H.1 International Technical Support Organization Publications 


For information on ordering these ITSO publications see “How to Get ITSO 
Redbooks” on page 187. 


AS/400 Applications: Moving to the 21st Century, SG24-4790 


AS/400 Applications: Year 2000 Enablement & Services Considerations, 
SG24-4829 


Make Your AS/400 System Year 2000 Ready, SG24-5401 


H.2 Redbooks on CD-ROMs 


Redbooks are also available on the following CD-ROMs. Click the CD-ROMs 
button at http://www. redbooks.ibm.com/ for information about all the CD-ROMs 
offered, updates and formats. 


CD-ROM Title Collection Kit 
Number 
System/390 Redbooks Collection SK2T-2177 
Networking and Systems Management Redbooks Collection SK2T-6022 
Transaction Processing and Data Management Redbooks Collection SK2T-8038 
Lotus Redbooks Collection SK2T-8039 
Tivoli Redbooks Collection SK2T-8044 
AS/400 Redbooks Collection SK2T-2849 
Netfinity Hardware and Software Redbooks Collection SK2T-8046 
RS/6000 Redbooks Collection (BkMgr Format) SK2T-8040 
RS/6000 Redbooks Collection (PDF Format) SK2T-8043 
Application Development Redbooks Collection SK2T-8037 


H.3 Other Publications 


These publications are also relevant as further information sources: 


AS/400 Magazine - A User Publication, March 1997 Issue, G325-6310 


BYPASS2000 Licensed Program Specifications Version 3 Release 1 
Modification Level 2, GC09-2592 


BYPASS2000 User's Guide Version 3 Release 1 Modification Level 1, 
SC09-2591 


Program Directory for IBM BYPASS2000 for AS/400 Version 3 Release 1 
Modification Level 2, Gl10-0406 
(ftp://service.software.ibm.com/as400/products/ad/bypass/bppd2.pdf) 


The Year 2000 and 2-Digit Dates: A Guide for Planning and Implementation, 
GC28-1251 


Year 2000 General Information Brochure, GC26-9002 
Year 2000-Ready Solutions from AS/400, G221-8005 
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H.4 Web Sites 


HAL's Site 

http://www.halinfo.it 

AS/400 Year 2000 Support 
http://www.as400.ibm.com/developer/year2000/index.html 
IBM Year 2000 Site 
http://www.software.iobm.com/year2000 

IBM Bypass2000 Site 
http://www.software.ibm.com/ad/as400/bypass/ 
IBM AS/400 Partners in Development (PID) Site 
http://www.as400.ibm.com/developer 

IBM ITSO Redbooks Site 


http://www.iom.com/redbooks 
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How to Get ITSO Redbooks 


This section explains how both customers and IBM employees can find out about ITSO redbooks, redpieces, and 
CD-ROMs. A form for ordering books and CD-ROMs by fax or e-mail is also provided. 


¢ Redbooks Web Site http://www. redbooks. ibm. com/ 


Search for, view, download or order hardcopy/CD-ROM redbooks from the redbooks web site. Also read 


redpieces and download additional materials (code samples or diskette/CD-ROM images) from this redbooks 


site. 


Redpieces are redbooks in progress; not all redbooks become redpieces and sometimes just a few chapters will 
be published this way. The intent is to get the information out much quicker than the formal publishing process 


allows. 


¢ E-mail Orders 


Send orders via e-mail including information from the redbooks fax order form to: 


In United States 
Outside North America 


¢ Telephone Orders 


United States (toll free) 
Canada (toll free) 
Outside North America 


e Fax Orders 


United States (toll free) 
Canada 
Outside North America 


e-mail address 

usib6fpl @ ibmmail.com 

Contact information is in the “How to Order” section at this site: 
http: //www.elink.ibmlink.ibm.com/pbl1/pb1/ 


1-800-879-2755 

1-800-IBM-4YOU 

Country coordinator phone number is in the “How to Order” section at 
this site: 

http: //www.elink.ibmlink. ibm.com/pbl1/pb1/ 


1-800-445-9269 

1-403-267-4455 

Fax phone number is in the “How to Order” section at this site: 
http: //www.elink.ibmlink. ibm.com/pb1/pb1/ 


This information was current at the time of publication, but is continually subject to change. The latest information 


may be found at the Redbooks Web site. 


-— IBM Intranet for Employees 


IBM employees may register for information on workshops, residencies, and redbooks by accessing the IBM 

Intranet Web site at http: //w3.itso.ibm.com/ and clicking the ITSO Mailing List button. Look in the Materials 
repository for workshops, presentations, papers, and Web pages developed and written by the ITSO technical 
professionals; click the Additional Materials button. Employees may access MyNews at http: //inews.ibm.con/ to 
view redbook. residency, and workshop announcements. 
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IBM Redbook Fax Order Form 


Please send me the following: 


Title Order Number Quantity 
First name Last name 

Company 

Address 

City Postal code Country 

Telephone number Telefax number VAT number 


Invoice to customer number 


Credit card number 


Credit card expiration date Card issued to Signature 


We accept American Express, Diners, Eurocard, Master Card, and Visa. Payment by credit card not 
available in all countries. Signature mandatory for credit card payment. 
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seeding field 72 
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subroutine 54 
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test migration program 94 
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ITSO Redbook Evaluation 


AS/400 Applications: IBM Year 2000 Tools Tips and Techniques 
$G24-2156-01 


Your feedback is very important to help us maintain the quality of ITSO redbooks. Please complete this 
questionnaire and return it using one of the following methods: 


e Use the online evaluation form found at the address: redbook@us .ibm.com 
e Fax this form to: USA International Access Code + 1 914 432 8264 
¢ Send your comments in an Internet note to redbook @us.ibm.com 


Which of the following best describes you? 
_Customer _ Business Partner _ Solution Developer _ IBM employee 
_ None of the above 


Please rate your overall satisfaction with this book using the scale: 
(1 = very good, 2 = good, 3 = average, 4 = poor, 5 = very poor) 


Overall Satisfaction 
Please answer the following questions: 


Was this redbook published in time for your needs? Yes___- No_ 


If no, please explain: 


What other redbooks would you like to see published? 


Comments/Suggestions: (THANK YOU FOR YOUR FEEDBACK!) 
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